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

Вкассе имеются денежные купюры достоинством в 1,5,10,50,100,500 рублей. необходимо выплатить сумму n наименьшим кол-вом купюр написать на паскале (используя циклы)

👇
Ответ:
sof070808
sof070808
15.07.2022
Const
  c:array[1..6] of integer=(1,5,10,50,100,500);
var
  i:byte;
  n,d:integer;
  k:array[1..6] of integer;
begin
  Write('Введите значение суммы: '); Read(n);
  for i:=1 to 6 do k[i]:=0;
  d:=n; i:=6;
  while d>0 do begin
    k[i]:=d div c[i];
    d:=d mod c[i];
    Dec(i)
  end;
  Write(n,' => ');
  for i:=6 downto 1 do
    if k[i]>0 then Write(c[i],'x',k[i],' ')
end.

Тестовое решение:
Введите значение суммы: 8947
8947 => 500x17 100x4 10x4 5x1 1x2
4,7(86 оценок)
Открыть все ответы
Ответ:
1.
program nom1;
const n=8;
var a:array[1..n] of integer;
 i,t:integer;
begin
for i:=1 to n do
read(a[i]);
t:=0;
for i:=1 to n do
t:=t+a[i];
write('Командное время = ',t);
end.

2.program n2;
const N=15;
var a:array[1..N] of integer;
i:integer;
v:real;
begin
for i:=1 to N do a[i]:=random(30);
v:=0;
for i:=1 to N do
v:=v+a[i];
v:=v/N;
writeln('Сред высота =',v);
end. 

3.
program n3;
const N=12;var a:array[1..N] of integer;
i,c:integer;
begin
for i:=1 to N do a[i]:=random(120)+100;
c:=0;
for i:=1 to N do
if a[i]>160 then
 c:=c+1;
writeln('Kол-во
end.
4,7(82 оценок)
Ответ:
yakovenko040320
yakovenko040320
15.07.2022

using System;

     

public class Program

{

public static void Main()

{

 var rand = new Random();

 int x = rand.Next(3, 10);

 int t = 1200;

 int count;

 if (t % x == 0)

 {

  count = t / x;

 }

 else

 {

  count = t / x + 1;

 }

 int ans;

 if (count % 20 == 0)

 {

  ans = count / 20;

 }

 else

 {

  ans = count / 20 + 1;

 }

 Console.WriteLine(ans.ToString());

}

}

Генерируем рандомное число от 3 до 10. Затем рассчитаем на сколько лекций он опоздает суммарно на 20 часов (т.е. 1200 минут). Разделим количество лекций, на которые он опоздал, на 20 с округлением вверх и получим ответ.

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