Регистрация
MrsDrew
16.05.2021 17:11
Информатика
Есть ответ 👍

Написать программу, которая в файл «z3.dat» записывает 20 первых элементов последовательности an = 3n – 15.
program n3;
var T: text; n, a: integer;
begin
assign (__, _____);
rewrite (T);
for n:=1 to ___ do
begin
a := 3*n – 15;
Write (___, a);
end;
close (___);
end.

286
432
Посмотреть ответы 1

Ответы на вопрос:

Smartfone
Smartfone
4,6(3 оценок)
Program z1;     var a, b: integer; begin     write(' введите возраст саши - ');   read(a);     write(' введите возраст mаши - ');   read(b);     if a> b then  writeln(' саша старше маши на ',a-b,' лет');       if a< b then  writeln(' маша старше саши на ',b-a,' лет'); end.

Популярно: Информатика