В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Petrosyan31337
Petrosyan31337
01.10.2021 17:45 •  Информатика

В тексте используется сноска. Назовите признаки сноски​


В тексте используется сноска. Назовите признаки сноски​

Показать ответ
Ответ:
Devil536
Devil536
10.07.2020 05:22

1)

var

   a, n, s: integer;

begin

   write('n = ');

   Readln(n);

   

   a := 1;

   while a <= n do

   begin

       s := s + a;

       a := a + 1;

   end;

   writeln(s);

end.

2)

var

   a, n: integer;

begin

   write('n = ');

   Readln(n);

   a := 1;

   while a <= n do

   begin

       writeln(2 * a);

       a := a + 1;

   end;

end.

3)

var

   a, b: integer;

begin

   write('Введите числа a и b: ');

   Readln(a, b);

   

   while a <= b do

   begin

       writeln(a, '^2 = ', sqr(a));

       a := a + 1;

   end;

end.

0,0(0 оценок)
Ответ:
Meeep
Meeep
14.07.2021 23:10
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var Bnk:=Arr(500,100,50,10);
  var s:=ReadInteger('Сдача, руб:');
  var Kol:=Arr(0,0,0,0);
  for var i:=0 to 3 do begin
    Kol[i]:=s div Bnk[i];
    s:=s mod Bnk[i]
    end;
  if s<>0 then Writeln('Сдачу дать невозможно')
  else begin
    Writeln('Следует дать:');
    for var i:=0 to 3 do
      Writeln('банкнот по ',Bnk[i],' руб - ',Kol[i],' шт.')
    end
end.

Тестовое решение:
Сдача, руб: 850
Следует дать:
банкнот по 500 руб - 1 шт.
банкнот по 100 руб - 3 шт.
банкнот по 50 руб - 1 шт.
банкнот по 10 руб - 0 шт.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота