М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lolkek213
lolkek213
19.05.2022 00:13 •  Информатика

Цикл с параметром.pascale.нужно написать программу. определить количество чисел, кратных 5, среди n чисел, заданных случайным образом в диапозоне от -50 до 50.

👇
Ответ:
fyz070504
fyz070504
19.05.2022
Const nmax = 30;
var a:array [1..nmax] of integer;
      i,k,n:integer;
begin
  randomize;
  k:=0;
  repeat
    write ('N = ');
    readln (n);
  until n in [1..nmax];
  for i:=1 to n do
    begin
      a[i]:=random(101)-50;
      writeln (a[i]);
      if a[i] mod 5 = 0 then inc(k);
    end;
  writeln ('Kol-vo: ',k);
end.
4,4(60 оценок)
Открыть все ответы
Ответ:
Daniil201058715
Daniil201058715
19.05.2022

import datetime

now = datetime.datetime.now()

now = str(now)

now = now.replace('-', '.')

now = now[:10]

now = now[5:]

a = [['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.18'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'],['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12']]

b = []

for i in range(len(a)):

   item = a[i][3][5:]

   if item == now:

       b.append(a[i])

print('СЕГОДНЯ ДЕНЬ РОЖДЕНИЕ У:')

for j in range(len(b)):

   print(b[j][0], b[j][1], b[j][2])


Заданы данные о n=10 учащихся класса: фамилия, имя, отчество, дата рождение (год, номер месяца и чис
4,4(3 оценок)
Ответ:
макс17281
макс17281
19.05.2022
Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами  
4,6(83 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ