37)var a,b,c : real;begin readln(a, b); begin if a >= b then writeln(b, a) else writeln(a,'и', b) end; if a >= b then b:= b*a*2 else a:= b*a*2; if a>= b then a:= (a+b)/2 else b:= (a+b)/2;writeln(a,'и',b);end.
Задача 25:
2^9+2^9=1024
2^7=128
2^4+2^5=48
2^5+2^2=36
1024+128+48+36=1236
Ответ: 9974552(это станет двойки)
program p1;
uses crt; выводит окошко, где будет результат
var i,s:integer;
begin
s:=0;
for i:=10 to 99 do begin
s:=s+i;
end;
write(s);
end.
На вкладке Главное находятся разделы для форматирвоания содержимого документа (Настройка шрифтов, абзацев и общего стиля документа)
Нет, в схеме масса (я насчитал 3) ошибки.
1) 2 безусловных ветвления из одного места не могут быть
2) ромбик как условный опоератор должен иметь 2 исзодящих стрелки
3) третий прямоугольник лишён исходящей стрелки, она должна вести в блок КОНЕЦ