Предмет: Информатика,
автор: mafchik42
написать блок схемы в программе PascalABC
Приложения:
держи
Ответы
Автор ответа:
0
Ответ:
var a,i:integer;
begin
write('Введите размер таблицы -> ');
readln(a);
writeln('- - - - - - - - - - - - - - - - -');
for i:=1 to a do
if (a mod 2 <> 0) then
writeln(i, ' ', i*i);
writeln('- - - - - - - - - - - - - - - - -');
end.
Объяснение:
вот
Похожие вопросы
Предмет: Биология,
автор: dayanaondar
Предмет: Обществознание,
автор: missiseg1979
Предмет: Математика,
автор: anastasiyaroma4
Предмет: География,
автор: MrFun2512
begin
write('Введите размер таблицы -> ');
readln(a);
writeln('- - - - - - - - - - - - - - - - -');
for i:=1 to a do
if (a mod 2 <> 0) then
writeln(i, ' ', i*i);
writeln('- - - - - - - - - - - - - - - - -');
end.