Регистрация
Kashakom04
14.11.2022 23:24
Информатика
Есть ответ 👍

если можно то всё и в хорошем виде так же паскаль и как можно скорее Для N чисел, заданных случайным образом [-19;21], подсчитать сумму и количество чисел, кратных 3. Значение N ввести с клавиатуры.
1. Построить знаковую модель.
2. Составить блок-схему алгоритма.
3. Написать программу.

158
342
Посмотреть ответы 1

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

Егор4ik18
Егор4ik18
4,5(88 оценок)
  program proga;     var   a: text;       i,j,n,m : byte;         d: string;         sim: char;   begin              write('введите имя текстового файла   ');   {например: "test" он создастся там где находится сама программа }                read(d);                                             assign(a,d);                   rewrite(a);                       write('введите количество строк: n= ');                           readln(n);                       write('введите количество символов в строке: m= ');                           readln(m);                                         for i: =1 to n do                      begin                            sim: =chr(ord('1')+i-1);                             for j: =1 to m do                                write(a,sim);                                 writeln(a);                       end;                             close(a); end.      

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