с предусловием
program var_while;
var
s : integer := 2;
n : integer := 2;
begin
while n <= 7 do begin
s := s-3*n;
n += 1;
end;
writeln(s);
end.
с постусловием
program var_repeat;
var
s : integer := 2;
n : integer := 2;
begin
repeat
s := s-3*n;
n += 1;
until n > 7;
writeln(s);
end.
и в нагрузку цикл с параметром
program var_for;
var
s : integer := 2;
begin
for var n := 2 to 7 do s := s-3*n;
writeln(s);
end.
Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end.
Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56
Ответ:
1)400кб * 128 фото = 51200 кб / 1024 = 50Мб
2)5 мин - 300сек.1Мбит - 125 кбайт . 300*125 = 37500
Объяснение:
Program minsk;
var a: integer;
begin
writeln('В каком году был основан город Минск?');
writeln('В 1067г.');
writeln('В 993г.');
writeln('В 1147г.');
read(a);
if a=1067 then
writeln('Верно');
else
writeln('Не верно Минск был основан 1067г')
end.