Сделайте программу паскаль

0 голосов
50 просмотров

Сделайте программу паскаль


image

Информатика (107 баллов) | 50 просмотров
0

какую

0

все 3 задачи. Ну хоть какую сделай

0

одну хоть сделай

0

любую

0

А то меня не было поэтому я не знаю

0

Они простые до "немогу". Сейчас напишу

0

ок

Дано ответов: 2
0 голосов
Правильный ответ

1)
var a,b,c,p:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
p:=a+b+c;
writeln('p = ',p);
end.

Пример:
a, b, c:
3 4 5
p = 12

2)
var a,b,c,x,y,z,s:real;
begin
writeln('Введите стоимость 1 кг конфет, печенья и яблок:');
readln(a,b,c);
writeln('Введите вес конфет, печенья и яблок:');
readln(x,y,z);
s:=a*x+b*y+c*z;
writeln('Стоимость всей покупки = ',s);
end.

Пример:
Введите стоимость 1 кг конфет, печенья и яблок:
215 150 60
Введите вес конфет, печенья и яблок:
0.5 2 3.5
Стоимость всей покупки = 617.5

3)
var b,s:real;
begin
write('b = ');
readln(b);
s:=b*30/1.5;
writeln('s = ',s);
end.

Пример:
b = 2
s = 40

(194k баллов)
0 голосов

Решение задач в приложенных файлах.

(3.4k баллов)
0

Что это?

0

это 3 программы для каждой из задач, внутри программ подписано к какой задаче они идут {1} {2} {3}

0

куда заходить та?

0

d ghbkj;tyyst afqks

0

В приложенные файлы

0

А где ссылка?

0

что-то я о поняла

0

Не поняла

0

где эти файлы?