Тебе две программы или одну?
// Язык Pascal

Var i : integer;
Begin
for i:= 5 to 20 writeln(i);
for i:=45 to 60 writeln(i);
end.

Да, я серьезно, это будет работать. Это две задачи в одной. Поползут цифры в столбик, с 5 до 20, потом резко с 45 до 60, а потом программа закроется

0 0

4 года назад

Дано целое число х, вещественные числа z, у и строковая величина а. Правильно запишите раздел описания этих переменных на языке

Виктор53

Var x:integer;z,y:real;a:string

0 0

3 года назад

Для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов.

Ирек Гал [105]

Const n=10;
var a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
s,i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do begin
read(a[i,j]);
if i=j then b[i]:=a[i,j];
end;
for i:=1 to n do
write(b[i],' ');
<span>end.</span>

0 0

4 года назад