воскресенье, 22 ноября 2015 г.

Задание на 30 ноября

1)Повторить разобранную на уроке Задача №30
Program  deng30;
var  i  :integer;
s ,P :real;
begin
 S:=200000;
writeln('введите денежный процент P = ');
readln(P);
for  i:=1626  to  2012  do
S:= S+S/100*P;
writeln('s = ', s:15:0);
end.
2)Заполнить рабочая тетрадь стр 75
3)Сделать №32 и №33


Комментариев нет:

Отправить комментарий

Решение задач к практической работе 15-19 октября

Увеличить каждый элемент массива на 2  program aaa; var h: array[1..5] of integer;  i:integer; begin       for i:=1 to 5 do    ...