Const
N = 20;
type
Tmas = array [1..N] of longint;
var
m: Tmas;
i, sum: longint;
begin
sum := 0;
for i := 1 to N do
begin
readln(m[i]);
if (m[i] mod 7 = 0) and (m[i] mod 10 = 1) then
sum := sum + m[i] ;
end;
writeln(sum);
end.
пж как лучший
Использовать Робот
алг
нач
нц пока не справа свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока не справа свободно и снизу свободно
закрасить
вниз
кц
нц пока не снизу свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока не снизу свободно и слева свободно
закрасить
влево
кц
кон
Вот :
var y,x:integer;
begin
writeln('Введите x');
read(x);
y:=x*x;
writeln;
write('Значение функции равно: ');
write(y);
end.