Войти Регистрация Спроси ai-bota

Написать программу.известно,что x кг конфет - стоит a рублей.определить сколько стоит y кг этих же конфет,а так же сколько кг конфет можно купить на k рублей.все значения вводит пользователь

Ответ:

Danlika

07.08.2020 09:47

Program konfeta;
uses crt;
var a,b,c,k:integer;
d,e,m:real;
begin
clrscr;
write('Input (x) weight: ');
readln(b);
write('Input (a) cost: ');
readln(a);
d:=a/b;
write('1 kg cost ',d:2:2);
writeln;
write('Input (y)kg: ');
readln(c);
e:=c*d;
writeln(c ,' kg cost= ',e:2:2);
write('Input k rub: ');
readln(k);
m:=k/d;
writeln(k ,' rub cost ',m:2:2 ,' kg.');
write('Press any key...');
repeat until
keypressed;
end.

если надо пояснение пиши

0,0(0 оценок)

Популярные вопросы: Информатика

алиная2

26.07.2020 05:47

В летнем лагере отдыхало 85 семиклассников (-а). 6 из них не любят компьютерные игры. 53 семиклассника (-ов) предпочитают квесты, 59 — симуляторы. Сколько ребят с одинаковым...

Chika200616

18.08.2021 01:32

Информатика,8 класс. алгоритмы . : з определи значение переменной a после выполнения фрагмента алгоритма при a=3 и a=8 ввод а если a 5 то a: =a+20 иначе a: =a*10 всё...

helpmepls1234566

10.11.2022 20:01

Облачное хранение данных позволяет сохранить резевного копирования данных.перечислите один плюс и одтн минус резервировного копирование...

Vzorr

27.11.2020 00:27

Написать по этому заданию программу в паскале .заранее за...

мэри114

19.11.2022 14:26

Дана сторона треугольника и его высота. составить программу для нахождения площади треугольника....

mikatay

03.09.2020 10:32

Как называется файловая структура, которую можно представить в виде списка файлов? составьте слово из букв: раястпо ответ запишите большими буквами....

zvoznikov304

03.09.2020 10:32

Какие существуют разновидности файловых структур? выберите несколько из 4 вариантов ответа: 1) простые 2) иерархические 3) сетевые 4) простые с ответвлениями !...

zhenyaermakov

16.04.2021 03:37

Напишите программу, вычисляющую и выводящую на экран 10 первых членов в последовательности фибоначчи...

5Kamilla505

26.12.2021 17:34

Дано четырехзначное число. найдите его палиндром и сумму палиндрома и данного числа. перевести на язык програмирования c#, не pascal и c++...

ХристинаРоманівна

08.06.2021 15:34

Запишите значение переменной s, полученное в результате работы следующей программы: var s,k: integer; begin s : = 8; for k : = 3 to 8 do s : = s + 8 writeln(s); end...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку