Program q;
var a,b,sum,proiz:integer;
begin
readln(a);
readln(b);
sum:=a+b;
proiz:=a*b;
writeln('Сумма чисел=',sum);
writeln('Произведение чисел=',proiz);
end.

0 0

1 год назад

Помогите 20 плиз даю 15 баллов!

Татьяна231 [87]

Короче...
Ромб в блок схеме это If(если по рус.) ,round (округлить, пример: 3.5=4),trunc(отсечь вроде как, пример: 3.99999 = 3), число mod 2 = 0(это поиск чётого числа)

ronud(x/3) mod 2 = 0 => round(7/3) mod 2 = 0 => 2(округлили) mod 2 =0 => 2 -чётное , да , пошёл по правой ветви.

x:=trunc(x*4/3) => x:= trunc(отсечь до целых) (7*4/3) => trunc(28/3)=> 9

x:=trunc(x/(x div 3)) => x:=trunc(9/( 9 div 3)) = > x:=trunc(9/3)=> x:= 3
Ответ:3

0 0

4 года назад

Помогите пожалуйста

Sylvana [7]

а) 23, 116, 485

b) 00011011

c) 176

0 0

3 года назад

Составь алгоритм решения задачи: расположи три числа 4,8,2 в порядке убывания. 1)Начало 2)Сравни первое и второе числа;если пер

Lilu [141]

1)Начало
2)Сравни первое и второе числа;если первое меньше второго,то поменяй их местами.
3)Сравни второе и третьего числа;если второе меньше третьего ,то поменяй их местами.
4)Если теперь три числа расположены в порядке убывания ,то исполни пункт 5) этого алгоритма; иначе вернись. к пункту 2).
<span>5)Конец</span>

0 0

4 года назад