Отчет по практике: Редактирование и отладка программ с помощью Pascal

Ответ: 7

Циклическая программа

Задание 1.Напечатать “столбиком”: все целые числа от 20 до 35

Program as; Блок-схема

Uses crt;

Var a:integer;

A:=20

Begin clrscr;

For a:=20 to 35 do writeln(a);

Readln;

end.

Задание 2.Напечатать “столбиком”: квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры, причем b>10)

Program as; Блок-схема

Uses crt;

Var a,j:integer;

A:=10

Begin clrscr;

Writeln(‘Введи число’);

Readln(j);

For a:=10 to j do writeln(sqrt(a):5:2);

Readln;

end.

< « 12 13 14 15 16 17 18 19 20 21 » К-во Просмотров: 556 Бесплатно скачать Отчет по практике: Редактирование и отладка программ с помощью Pascal >>> Скачать <<< Меню Поиск A+1