Var x,y,z:integer;
begin
x:=13;
y:=3;
z:=x;
x:=z div y;
y:=x;
writeln(x+' '+y+' '+z);
end.
Ответ
<span>3)x=4, y=4, z=13</span>
//PascalABC.NET 3.1 сборка 1200
begin
repeat
var n := Random(1000);
if n mod (5 * 7) = 0 then begin
write(n);
Readln;
end
until false;
end.
Это. очень смешно. папа. съел все. апельсины
<span>Скорость передачи данных по локальной сети 37 Mбит в секунду. Ученик скачал игру за 58 минут. Каков объём скачанной информации в Кбайтах? </span>