Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
y4enik5
16.04.2020 01:47 •
Другие предметы
Придумай различные окончания предложения. Март пришел… .
Показать ответ
Ответ:
kristinamurrr1
04.06.2020 04:18
Uses crt;
var s:integer;
b,y,a:real;
begin
write('Введите сумму денег, на которую собираетесь произвести покупки: ');
read(a);
while a>0 do begin
s:=s+1;
write('Товар №',s,': ');
read(b);
write('Введите количество: ');
read(y);
a:=a-(b*y);
end;
end.
0,0
(0 оценок)
Ответ:
Demonis666
04.06.2020 04:18
Uses crt;
var
sum,x,itog: real;
i,y: integer;
begin
i:=1;
itog:=0;
write ('Start summa: ');
readln (sum);
while (itog<sum) do
begin
write ('¹',i,': ');
i:=i+1;
readln (x);
write ('Kol-vo: ');
readln (y);
itog:=itog+y*x;
end;
if (itog>sum) then
writeln ('Itog: ',itog-y*x)
else
writeln ('Itog: ',itog);
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
HackFox
26.07.2021 17:23
Он говорил о ней что она подобна им. о ком идёт речь...
kirikdementev
07.02.2023 16:57
Ежемесячныедоходы гражданки птичкиной н.а., налогового резидента рф, по месту работы составляет 13 тыс. руб. гражданка птичкина в.а. имеет на содержании одного ребенка в возрасте...
Azaleika
02.08.2021 04:40
ответьте на вопросы ( технология ) 70...
maks7221
07.04.2023 16:38
Определи соответствие между жанрами изобразительного искусства и их изображениями....
pspoff
15.07.2021 07:12
Лабораторную работу выполняем в новой 12 листовой тетради, которую вы принесёте в школу. 1) Записываем название лабораторной работы; 2) Цель и оборудование; 3) Ход работы...
moakoroleva
28.01.2023 15:28
Не очень много что бы было,...
dasha8872
19.07.2022 06:07
4. Как проявляется антитеза (противопоставление) в изображении художника Бермана?...
MishaNY2001
17.01.2020 19:10
Как сделать язык 5 класс учебник афанасьева стр 132 3 ...
1Ростиславка
28.04.2022 04:41
Техническая механика. решить ....
dzeratigieva
29.11.2021 00:02
Довести що дари волхів є новеллою...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var s:integer;
b,y,a:real;
begin
write('Введите сумму денег, на которую собираетесь произвести покупки: ');
read(a);
while a>0 do begin
s:=s+1;
write('Товар №',s,': ');
read(b);
write('Введите количество: ');
read(y);
a:=a-(b*y);
end;
end.
var
sum,x,itog: real;
i,y: integer;
begin
i:=1;
itog:=0;
write ('Start summa: ');
readln (sum);
while (itog<sum) do
begin
write ('¹',i,': ');
i:=i+1;
readln (x);
write ('Kol-vo: ');
readln (y);
itog:=itog+y*x;
end;
if (itog>sum) then
writeln ('Itog: ',itog-y*x)
else
writeln ('Itog: ',itog);
end.