ПОМОГИТЕ ПОЖАЛУЙСТА ПРОШУ

Приложения:

Ответы

Ответ дал: topwkolnik
0
1.--------
var  a, b, c: integer;

begin 
 writeln('Введи два числа:');
  read(a, b); 
 c := a + b; 
 write('Сумма=', c);
end.
-------------------
2. n=6; блок-схема на картинке;
------------------
3.
program z3;
var  a, b: integer;
begin 
 Writeln('Введите 2 числа:'); 
readln(a, b); 
 if a > b then
  begin    a := a * 5;   
 writeln(a); 
 end; 
 if b > a then 
 begin   
b := b * 5;
    writeln(b); 
 end;
end.
------------
Приложения:
Ответ дал: alanturaev
0
А картинку рисовать надо?
Ответ дал: alanturaev
0
В тетраде
Ответ дал: topwkolnik
0
да,в во втором задании же написано
Ответ дал: topwkolnik
0
обнови страницу,я немного отредактировал
Вас заинтересует