По условию:
a=5, b=20, c=-7, d=25
Находим значение переменной r:
r = a + (4 * b * c ) * d = 5 + (4* 20 * -7) * 25 = -13995
Находим значение переменной a:
a = a + 4 = 5 + 4 = 9
Находим значение переменной d:
d = a * 7 = 9 * 7 = 63
program r_a_d;
var
a, b, c : integer;
r, d : real;
begin
a:=5;
b:=20;
c:=-7;
d:=25;
r := a + (4 * b * c ) * d;
a := a+4;
d := a*7;
writeln('r=', r:10:4, ', a=', a, ', d=', d:10:4);
end.
Ответ:
Var a, i:integer;
Begin
Writeln('Введите число') ;
Read(a) ;
For i:=1 to 9 do writeln( a, '*', i, '=', a*i) ;
End.
Program gg;
Var i,s: integer;
Begin
For i:=10 to 50 do
if i mod 2=0 then s:=s+i;
Writeln('Сумма всех четных чисел от 10 до 50 равна ',s)
end.
Ты рисунок который сверху хотябы сфоткай
//Pascal ABC.NET v3.1 сборка 1219
Var
a,b:integer;
procedure forforfunclang(a,b:integer);
begin
if a=b then writeln(b);
if a>b then
begin
writeln(a);
a:=a-1;
forforfunclang(a,b);
end;
if a<b then
begin
writeln(a);
a:=a+1;
forforfunclang(a,b);
end;
end;
begin
read(a,b);
forforfunclang(a,b);
end.
Пример ввода:
6
2
Пример вывода:
6
5
4
3
2