<span>Построена блок-схема алгоритма с условиями</span>
Var s,i:integer;
begin
write('s = ');
readln(s);
for i:=100 to 999 do
if (i div 100 + i div 10 mod 10 + i mod 10 < s)
then write(i,' ');
end.
Пример:
<span>s = 5
100 101 102 103 110 111 112 120 121 130 200 201 202 210 211 220 300 301 310 400 </span>
Const n = 5;
m = 5;
var a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
//Для теста заполним массив n * m сл.числами и
//определяем количество нечетных
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
if a[i,j] mod 2<>0 then k:=k+1;
end;
writeln;
end;
writeln('Нечетных в массиве: ',k);
Прикрепляю 2 фотографии. На первой написана задача про стоимость продуктов, но второй - задача с часами