Program ez_1;
var s: integer;
a: array [1..9] of integer;\
i: byte;
begin
a[1] := 5;
for i := 1 to 9 do
a[i] := a[1] + 2 * i;
for i := 1 to 9 do
begin
s := 3 * (a[i] * a[i]);
writeln(s);
end;
end.
2)
program ez_2;var
s, m, b: integer;
a: array [1..9] of integer;
i: byte;
begin
readln(s);
for i := 1 to s do
begin
read(a[i]);
if a[i] < 0 then m := m + 1
else b := b + 1;
end;
writeln(b, ' Положительных чисел');
writeln(m, ' Отрицательных чисел');
end.
Вроде так. Если что-то не так. Пиши.
А) var a,sum,i:integer;
begin
sum:=0;
for i:=100 to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.
б) var a,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
for i:=a to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.
в) var b,sum,i:integer;
begin
sum:=0;
writeln('Введите число b');
readln(b);
for i:=-10 to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.
г) var a,b,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
for i:=a to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.
На фото решение полное твоего задания
устройства ввода
2 группы на которые делятся
устройства вывода
какие бывают клавиатуры
основные характеристики принтера
струйные принтеры
Все 5.
Гномы видели, что существовало всего 3 красных капюшона. А значит те, на кого надеты капюшоны синего цвета сразу могут дать ответ, что на них синие. Если гномы в красных капюшонах видят, что гномы в синих ответили, то понимают, что эти гномы должны быть уверены в правильности их ответа, а значит все оставшиеся - с красными. И поэтому оставшиеся 3 тоже могут ответить правильно.