Var a, b, c : real;
Begin
Write('введите a: ');
Readln(a);
Write('введите b: ');
Readln(b);
Write('введите с: ');
Readln(c);
Write('(a + b) * c = ', (a + b) * c);
Readln;
End.
незняю как проверку делать но вот ответы
№3
1001100110(2)
№4
101000010(2)
Var a:array [1..12] of integer;
<span>i,sum:integer; </span>
<span>begin </span>
<span>sum:=0; </span>
<span>randomize; </span>
<span>for i:=1 to 12 do begin </span>
<span>a[i]:=random(10,99); </span>
<span>if a[i] mod 2 =0 then sum:=sum+a[i]; </span>
<span>end; </span>
<span>writeln('Сумма четных чисел массива = ',sum); </span>
<span>end.</span>
Как помочь? фотку прикрепил бы..
Var
s, m: integer;
begin
writeln('Возраст Саши = ');
read(s);
writeln('Возраст Маши = ');
read(m);
if s > m then writeln('Саша старше Маши');
if m > s then writeln('Маша старше Саши');
if m = s then writeln('Одногодки');
end.