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

(Вводим значение 5,6) Ответ: 5

Задание12. Даны 2 числа. Если кв.корень из второго числа меньше первого числа, то увеличить второе число в 5 раз

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

uses crt;

var a,b,d,c:real;

begin clrscr;

writeln(‘Введи 2 числа’);

readln(a,b);

D:=sqrt(a) C:=sqrt(b)

d:=sqrt(a);

c:=sqrt(b);

if (d<c) then

writeln(‘увеличить 2 число в 5 раз’,c*c*c*c*c:5:2)

else writeln(‘нет решения’);

readln;

end.

Ответ: нет решения

Задание13. Дано число. Если это число чётное, то /2 если нет, то *2

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

Var a: integer;

Begin clrscr;

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

Readln (a);

If a mod 2=0 then writeln(a/2)

else writeln(a*2);

Readln;

End.

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

Ответ:10