Составить программу для определения произведения квадратов чисел 1,3, (оператор for)

NikitaZlatoystov NikitaZlatoystov    2   17.05.2019 23:30    0

Ответы
dsgsdfgasdasd dsgsdfgasdasd  11.06.2020 04:38

var
    i,s:integer;
Begin
    s:=1;
    for i:= 1 to 15 do
        if i mod 2=1 then s:=s*i*i;
    writeln(s);
End.
       

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика