Предмет: Информатика,
автор: Assstand
найдите произведение цифр заданного k-значного числа
Ответы
Автор ответа:
0
vark, p : integer;
beginfor k := 0 to 10 dobeginp := k;p := k * k;writeln(p);end;end.
beginfor k := 0 to 10 dobeginp := k;p := k * k;writeln(p);end;end.
Похожие вопросы
Предмет: Другие предметы,
автор: ergankadyrov
Предмет: Литература,
автор: f7x5bf6xg6
Предмет: Немецкий язык,
автор: 55fq8brphr
Предмет: Математика,
автор: marina200004
k, p : integer;
begin
for k := 0 to 10 do
begin
p := k;
p := k * k;
writeln(p);
end;
end.