Регистрация
2016mashamulalp0500j
24.08.2020 08:34
Информатика
Есть ответ 👍

Япрошу вас, умоляю. завтра уже сдавать, представьте алгоритм решения в виде блок-схем. постройте блок-схемы в тетради(обязательно все), постройте в msword 1. найдите корень квадратный из числа, если оно положительно и квадрат числа в противном случае. 2. определите из двух чисел а и в большее
3. дано x. вычислите значение

168
347
Посмотреть ответы 1

Ответы на вопрос:

вованчик3
вованчик3
4,8(2 оценок)

Объяснение:

2)

var a,i:integer;

begin

 a := 0;

 for i := 10 to 20 do

   a := a+i;

 writeln(a)

end.

6)

var a:integer;

begin

 a := 1;

 while a <= 16 do

 begin

 writeln(a);

 a := a+3;

 end;

end.

3)

var a,i:integer;

begin

 a := 1;

 for i := 1 to 8 do

   a := a*i;

 writeln(a)

end.

Популярно: Информатика