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

Дана последовательность чисел, которая оканчивается на 0. найдите наименьшее число, которое оканчивается на 5. заранее ) надо, сразу говорю) программа: pascal abc . net

👇
Ответ:
dariaa3
dariaa3
17.11.2020
1.Как я понял, последовательность вводится с клавиатуры и признак окончания ввода - 0. Значит имеет смысл использовать цикл Repeat
2. Вводимые числа - целые.
После этих уточнений можно написать код на PascalABC:

//Вариант с циклом repeat
var
  a, min: integer;

begin
  min := 555555;
  repeat
    readln(a);
    if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then
      min := a;
  until a = 0;
  writeln(min);
end.

//вариант с циклом while
var
  a, min: integer;

begin
  min := 555555;
    readln(a);
    while (a>0) or (a<0) do begin
    if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then
      min := a;
      readln(a);
   end;  
  writeln(min);
end.
4,7(97 оценок)
Открыть все ответы
Ответ:
MarGGoTV
MarGGoTV
17.11.2020

2 хлопчика 2 солдата на першому березі

     два хлопчика пливуть на інший берег

0 хлопчиків 2 солдата на першому березі // 2 хл. 0 с.

    один хлопчик повертає лодку

1 хлопчик 2 солдата на першому березі // 1 хл. 0 с.

   один солдат переправляється на інший берег

1 хлопчик 1 солдат на першому березі // 1 хд. 1 с.

   хлопчик з іншого берега повертається назад

2 хлопчика 1 солдат на першому березі // 0 хл. 1 с.

    два хлопчика переправляються на інший берег

0 хлопчиків 1 солдат на першому березі // 2 хл. 1 с.

     один хлопчик повертається

1 хлопчик 1 солдат на першому березі // 1 хл. 1с.

     другий солдат переправляється через ріку

1 хлопчика 0 солдат на першому березі // 1 хл. 2 с.

     другий хлопчик повертається до першого

2 хлопчика 0 солдат на першому березі // 0 хл. 2 с

   Тепер два солдата на іншому березі, двоє хлопчиків залишились у човні і можуть переправлятися куди завгодно
4,7(81 оценок)
Ответ:
masloshick
masloshick
17.11.2020
Romanf romanf отличник 2013-01-10t16: 13: 22+00: 00 1. подумать над алгоритмом 2. вот сам алгоритм: а. спросить у пользователя значения б. расчитать ответ в. выдать ответ на экран 3. написать код в паскале 4. исправить ошибки компиляции 5. протестировать, вводить разные числа 6. обнаружила, что если вводить числа наугад ответ получается отрицательным иногда 7. вставить код проверки введенных пользователем значений 8. убрать ошибки компиляции 9. протестировать 10. готово а вот и сама программа: program aerobus; uses crt; const totalplace = 160; var businessplaces, economyplaces: integer; businessprice, economyprice: real; totalcharge: real; a,b: integer; correctinput: boolean; begin clrscr; businessplaces: =totalplace div 4; economyplaces: = totalplace - businessplaces; writeln('business places count: ', businessplaces); writeln('economy places count: ', economyplaces); correctinput: =false; while not correctinput do begin write('please input business class ticket price: '); readln(businessprice); if(businessprice> 0) then begin correctinput: =true; end else begin writeln('the price should be a positive number, please try again'); end; end; economyprice: =businessprice/2; writeln('economy ticket price is: ', economyprice: 0: 2); correctinput: =false; while not correctinput do begin write('how many business tickets are left? : '); readln(a); if(a> =0) and (a< =businessplaces)then correctinput: =true; if(a< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(a> businessplaces) then begin writeln('please input a number which is less or equal to the tolal business place count, please try again'); end; end; correctinput: =false; while not correctinput do begin write('how many economy tickets are left? : '); readln(b); if(b> =0) and (b< =economyplaces)then correctinput: =true; if(b< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(b> economyplaces) then begin writeln('please input a number which is less or equal to the tolal economy place count, please try again'); end; end; totalcharge: =(businessplaces-a)*businessprice; totalcharge: =totalcharge+(economyplaces-b)*economyprice; writeln('the total charge is: ', totalcharge: 0: 2); writeln; writeln('press enter to exit'); readln; end.
4,6(13 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ