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

readln(a);

B :=(A*A)*PI

b:=(a*a)*pi;

writeln('Найти S круга=',b:5:2);

end.

(Вводим значение 5)

Ответ:78,5

Задание10. Дано натуральное число n(n>9).Найти число единиц в нем

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

uses crt;

var a,d:integer;

begin clrscr;

writeln('Введи натуральное чисно');

readln(a);

D:=a mod 10

d:=a mod 10;

writeln('Число единиц в нем=',d);

readln;

end.

(Вводим значение 6)

Ответ: единиц=6

Задание11.Дано расстояние в сантиметрах. Найти число полных метров в нем.

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

uses crt;

var a,m:integer;

begin clrscr;

writeln('Введи расстояние в сантиметрах');

readln(a);

M:=a div 100

m:=a div 100;

writeln('Получи расстояние в метрах',m);

readln;