1. var A,B,C:integer;
begin
read(B, C);
A:=B+C;
A:=A*10;
A:=A*15;
writeln(A);
<span>end.
2. В</span>
1) 259₁₀ ⇒ 100000011₂
2) 12221
3) 600 Кбайт
4) 4 цепочкм
5) http://doc.com/ciao.doc ⇔ 4 - 5 - 1 - 7 - 6 - 3 - 2
По RFC 791 IPv4 может быть здесь только таким 204.182.162.61
Program kratno;
var a,b,sum: integer;
begin
readln (a,b);
if (a>=-9) And (b>=-9) and (a<=9) and (b<=9) then begin
sum:=a+b;
writeln (sum);
end
else
writeln ('Введенные числа не являются однозначными');
end.
Program output;
Var a:integer;
begin
writeln('Сколько вам лет?');
readln(a);
writeln('В возрасте ',a,' лет, по статистике, жизнь преподносит сюрпризы');
end.
Проверь и отпиши