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

Нужно сделать постановку задачи, описать переменные, и написать код программы, и блок схему Даны два числа H и D. Если первое число кратно второму, то вывести на печать частное от деления первого на второе, в противном случае – остаток от деления первого на второе.

👇
Ответ:
nik869
nik869
08.04.2023

Ввод: два числа H и D.

Вывод: частное от деления первого на второе или остаток от деления первого на второе, в зависимости от условия.

H, D - integer

язык программирования python

код:

H = int(input('Введите H: '))

D = int(input('Введите D: '))

if H % D == 0: print(H / D)

else: print(H % D)

блок-схема на картинке


Нужно сделать постановку задачи, описать переменные, и написать код программы, и блок схему Даны два
4,7(94 оценок)
Открыть все ответы
Ответ:
reginasachtova
reginasachtova
08.04.2023
Const
  nn=100;
var
  n,i,k,s:integer;
  a:array[1..nn] of integer;
begin
  Write('Количество элементов в массиве: '); Read(n);
  Randomize;
  Writeln('Сформированный массив');
  k:=0; s:=0;
  for i:=1 to n do begin
    a[i]:=Random(100);
    Write(a[i],' ');
    if (a[i] in [51..59]) then begin s:=s+a[i]; Inc(k) end
    end;
  Writeln;
  Writeln('На интервале [51..59] найдено элементов - ',k);
  Writeln('Их сумма равна ',s)
end.

Пример выполнения программы
Количество элементов в массиве: 20
Сформированный массив
26 65 64 80 46 0 54 38 63 14 63 81 40 42 17 16 23 88 61 54
На интервале [51..59] найдено элементов - 2
Их сумма равна 108

Замечание
Если конструкция a[i] in [51..59] кажется незнакомой, её можно заменить на более длинную и менее эффективную (a[i]>50) and (a[i]<60)
4,6(10 оценок)
Ответ:
Викa1000000
Викa1000000
08.04.2023

1)

var

i, n, a: integer;

begin

readln(n);

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 if a mod 10 = 4) and (a > 10) and (a < 100) then

   writeln(a);

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

end.

2)

var

i, n, a, z, min: integer;

begin

readln(n);

z:= 0;

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 z:= z + 1;

 if (i <> 0) and (z = 1) then

   min:= a;

 if (a < min) then min:= a;

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

writeln(min)

end.

4,6(79 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ