Войти
Регистрация
Все предметы
Биология
География
Физика
Химия
История
Обществознание
Русский язык
Литература
Экономика
Право
Математика
Алгебра
Геометрия
Информатика
Английский язык
Українська мова
Українська література
Другие предметы
Беларуская мова
Қазақ тiлi
Немецкий язык
Окружающий мир
Французский язык
Музыка
МХК
ОБЖ
Психология
Оʻzbek tili
Кыргыз тили
Астрономия
Физкультура и спорт
Войти
Регистрация
Кролик456327
+25
Ответ дан
6 лет назад
Информатика
5 - 9 классы
помогите составить программу в паскале!Известна стоимость 1 кг конфет, печенья, яблок. Найти стоимость всей покупки, если купили х кг конфет, y кг печенья и z кг яблок.
Ответ
0.4/5
(
7
оценок)
10
Ленгит
6 лет назад
Светило науки - 722 ответа - 9665 раз оказано помощи
var
k,p,i,s,x,y,z:real;
begin
write('Стоимость килограмма конфет: ');
readln(k);
write('Стоимость килограмма печенья: ');
readln(p);
write('Стоимость килограмма яблок: ');
readln(i);
write('Купили конфет: ');
readln(x);
write('Купили печенья: ');
readln(y);
write('Купили яблок: ');
readln(z);
s:=x*k+y*p+z*i;
write('Потратили всего: ',s);
readln;
end.
Мозг
Отвечающий
Остались вопросы?
k,p,i,s,x,y,z:real;
begin
write('Стоимость килограмма конфет: ');
readln(k);
write('Стоимость килограмма печенья: ');
readln(p);
write('Стоимость килограмма яблок: ');
readln(i);
write('Купили конфет: ');
readln(x);
write('Купили печенья: ');
readln(y);
write('Купили яблок: ');
readln(z);
s:=x*k+y*p+z*i;
write('Потратили всего: ',s);
readln;
end.