Var P,L,W,S:Real;
Begin
Read(P);
W:=P/2;
L:=P+20;
S:=L*W;
Writeln('S = ',S:0:0);
end.
ПРОЦЕС - всего в алфавите 6 букв
На первое место есть 6 вариантов, на второе 5 (все буквы, кроме первой), на третье 5, на четвёртое 5.
Всего вариантов: 6 * 5 * 5 * 5 = 750
Var a:array[1..15] of integer;
i,b: integer;
begin
b:=1;
for i:=1 to 15 do readln(a[i]);
for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];
writeln(b);
end.
Ответ: 272 в 9 СС
Решение будет на фотке:
Держи, всё просто, http://calculatori.ru/perevod-chisel.html