Предмет: Информатика, автор: mal0y192

Помогите пожалуйста! Очень срочно надо! Сдать до 17:00!

Приложения:

mal0y192: Поможешь?
lozromanik: Да, до 17 по Киеву смогу
mal0y192: Заранее спасибо, жду)
lozromanik: gotovo
mal0y192: Спасибо брат, выручил
mal0y192: Только там надо же в программу вписать чтобы она коды выдала
lozromanik: ??? Обьясни конкретнее
lozromanik: Тип то, что в условиях 4-х задач, я написал, просто скажи тогда, чем дополнить
mal0y192: Ну там цифры в ответе должны быть
lozromanik: ну и? ПРограмма выводит то, что нужно

Ответы

Автор ответа: lozromanik
0

Відповідь:

var

 i:integer;

t1:array[1..15] of integer;

t2:array[1..50] of integer;

t3:array[1..8] of integer;

t4:array[1..12] of integer;

begin

 for i:=1 to 15 do begin

 t1[i]:=random(0,50);

 writeln(t1[i]);

 end;

 for i:=1 to 50 do begin

 t2[i]:=random(10,45);

 write(t2[i]+' ');

 end;

 writeln();

 for i:=1 to 8 do begin

 t3[i]:=i*i;

 write(t3[i]+' ');

 end;

 writeln();

 for i:=1 to 4 do begin

   t4[i+2*(i-1)]:=3+9*(i-1);

   t4[i+1+2*(i-1)]:=6+9*(i-1);

 writeln(t4[i+2*(i-1)]);

 writeln(t4[i+1+2*(i-1)]);

 writeln(t4[i+2+2*(i-1)]);

 end;

end.

Похожие вопросы
Предмет: Немецкий язык, автор: swald1
Предмет: Алгебра, автор: irahone78