Регистрация
fur5
01.02.2020 11:49
Информатика
Есть ответ 👍

Вопросы по командной строке Найти все файлы, имена которых начинаются со слова Дружба.
Найти все файлы, имена которых начинаются с цифры 9 и заканчиваются
латинской буквой m, расширение любое.
Найти все файлы с именем из трех символов и любым расширение.
Найти все файлы имена, которых начинаются с цифры 1, состоят из трех
символов и с любым расширение.

162
491
Посмотреть ответы 1

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

georgijandreev1
georgijandreev1
4,5(88 оценок)

var

  a: integer;   //a - вводимое число

  kol, s: integer;   //kol - количество чисел, кратных 9, но не кратных 6; s - сумма чисел, которые меньше -15

  i: integer;   //переменная для цикла

  n: word;

 

begin

  n: = 0;   //обнуляем счетчик

  s: = 0;   //обнуляем сумму

  writeln('введите число n');

  readln(n);   //вводим n

  for i: = 1 to n do   //вводим число n раз

  begin

    writeln('введите целое число');

    readln(a);

    if a < -15 then kol: = kol + 1;   //если число < 15, то прибавляем к счетчику 1

    if (a mod 9 = 0) and (a mod 6 < > 0) then s: = s + a;   //если число кратно 9, но не кратно 6, то прибавляем это число к сумме

  end;

  writeln('количество чисел, которые меньше -15:   ', kol);   {выводим количество чисел и сумму}

  writeln('сумма чисел, кратных 9, но не кратных 6:   ', s);

end.

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