Задача №1var a,b,c:real;begina:=40;b:= 10;b:= a/2 *b;if a < b then c:= b -aelsec:= a - 2*b;writeln('c =', c);end.Задача №2var a,b,c:integer;begina:=5;a:= a +6;b:= -a;c:= a- 2*b;writeln('c =', c);end.
Принтер т.к перед печатью мы задаём ему алгаритм
<span>Думаю, что нужно представить слово "ЁЖ" в виде аббревиатуры. Алгоритм и объяснения будут зависеть от словосочетания, которое будет обозначено словом "ЁЖ".</span>
На обычном паскалеАБЦ
var a:array[1..24] of integer; k,i:integer;
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
<span>end.</span>