program raf105;
var n,a,b,s,sum,i:integer;
begin
write('Введите количество комнат: ');
readln(n);
for i:=1 to n do
begin
writeln;
writeln('Комната №',i);
write('Длина: ');
readln(a);
write('Ширина: ');
readln(b);
s:= a*b;
writeln('Площадь: ',s,' м²');
sum:= sum+s;
end;
writeln;
writeln('Общая сумма площадей всех комнат: ',sum,' м²');
end.
<u><em>Язык программирования PascalABC</em></u>
X = int(input())
y = int(input())
p = int(input())
p = <span> float (100 + p) / 100
</span>y = y + x * 100
<span>y = y * p
</span><span>x = int (y // 100)
</span><span>y = int (y % 100)
</span><span>print (x, y) </span>
Код буквы трехзначный, начинающийся с 1, или однозначный (0 для С).
8СF8(16) = 1000 1100 1111 1000(2)
100 - К
0 - С
110 - О
0 - С
111 - Л
110 - О
0 - С
0 - С
Получается КСОСЛОСС, т.е. ответ номер 3.
Я думаю, что правильным ответом будет : 1) А.... и 2) А и В
Program wz;var a,b:integer;x:real;beginwriteln('Введите a ');readln(a);writeln('Введите b');readln(b);x:=(a+b)/(a*b);writeln('x=',x);end.