Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
на pascal:
program sonik;
uses crt;
var a,b,c: string;
begin
readln (a); readln (b); readln (c);
writeln (' фигуры: ',a,b,c);
end.
var
i: integer;
a: array[1..20] of integer;
function fn(x: integer): integer;
if x mod 10 = 4 then fn: =x div 2
else fn: =x;
end;
for i: =1 to 20 do
readln(a[i]);
a[i]: =fn(a[i]);
writeln(a[i]);
Популярные вопросы