Var
i:integer;
begin
i:=100;
while (i+7<200) do begin
inc(i,7);
write(i,' ');
end;
end.
Var n,m,max,min:integer;
Begin
write('Введите число n: ');readln(n);
max:=-10;min:=10;
While n<>0 do
Begin
m:=n mod 10;
if m>max then max:=m;
if m<min then min:=m;
n:=n div 10;
End;
writeln('Максимальная цифра числа: ',max);
writeln('Минимальная цифра числа: ',min);
End.
Алгоритм (программа на паскале):
var a,d,n: integer; y:real;
begin
a:=10;
d:=2;
n:=3;
y:=(a+d*(n-1))*n/2;
writeln(y);
end.
Результат:
21
Блок-схема - в прилагаемом файле.
25*80=2000 символов на экране
Unicode 16 битный:
2000*16=32000 бит (4000 байт)
Задание не совсем корректное. Если в массиве хранятся числа и отсутствие осадков принято за "0", то программа выглядит так
var i: integer;
a: array[1..31] of integer;
begin
for i:=1 to 31 do read(a[i]);
for i:=1 to 31 do
if a[i]=0 then write(i, ' ');<span>
end.
</span>