Значение стоимости 1 кг яблок вводится с клавиатуры. вывести на экран 0,6; 1,2; 1,8; 2,4 и т.д. до 7,2 киллограмм яблок
Den7373
3
01.10.2019 22:10
0
Другие вопросы по теме Информатика
Keonaks
19.08.2019 17:20
podgainiyroma
19.08.2019 17:20
11707
19.08.2019 17:10
Osminozhka09
19.08.2019 17:10
Zaya191
19.08.2019 17:10
Babaev11
19.08.2019 17:10
Pemo
19.08.2019 17:10
Kristina1605lps
19.08.2019 17:10
bikkinyaev2006
19.08.2019 17:10
Популярные вопросы
- 1.1833 год 2.1894 год 3.1895 год A.Установление железнодорожного сообщения...
2 - Объясните выражение. Продукты имеют энергетическую ценность.Энергетическая...
2 - 3. Вычисли, записывая выражение столбиком. Выполни проверку ТАМ НАДО а)...
2 - Естествознание 2 классМашины рекордсмены по скорости...
3 - 1.Опишите процессы, происходящие в неживой природе. Круговорот воды—Круговорот...
3 - Етіс жұрнақтарына 6 сөйлем құрастырып жазыңыздаршы...
3 - при температурі 52 С тиск газу в балоні дорівнює 2•10^5Па.При якій температурі...
1 - Напишите особенности абсолютизма в Османской империи....
3 - (-x-5)^2 + (x-4)(-x-4)+ (x-3) (x+7)...
3 - Теңдеуді шеш: [2×-1]=3 комектесіндерш...
3
var a,c: real;
begin
write ('Введите стоимость 1 кг яблок: ');
readln (c);
a := 0.6;
while a <= 7.2 do
begin
writeln(a:3,' кг яблок стоит ', a*c,' руб.');
a := a + 0.6
end
end.