var
z, y, x: Integer;
begin
Write ('Введите целые числа z, y, x: ');
ReadLn (z, y, x);
Writeln ('Результат = ', (z + y * 3) / (x + z));
ReadLn;
end.
Отправитель<span>, стремящийся оказать на </span>получателя<span> то или иное воздействие, передает ... </span>Получателю<span> для пониманий </span>информации<span> не -. обходимо декодировать ... Полный единичный цикл коммуникации, или простая </span>схема<span> ее структуры, ... </span>отправителя<span> и </span>получателя информации, но и сам процессобмена<span> ...</span>
Var n,m,i,j,k:integer;
begin
read(n,m);
for i:=1 to n do
begin
k:=i;
writeln;
for j:=1 to m do
begin
write(k,' ');
k:=k+n;
end;
end;
end.
Метель,дождь,ветер,сырость,слякоть