Задачка в Паскаль. Дана стоимость одного 1 кг конфет. Вывести стоимость 1, 2, ..., 10 кг конфет.
Ответы
Ответ дал:
0
program qwerty;
var a,b,c: real;
begin
write('Введите стоимость 1 кг конфет: ');
readln(a);
b:= 0;
c:= 0;
while c<10 do
begin
c:=c+1;
b:=b+a;
writeln('Стоимость ',c,' кг конфет равна ',b);
end
end.
Ответ дал:
0
var x, y, a:integer;
begin
writeln('введите сколько кг');
read(x);
writeln('введите сколько стоит 1 кг');
read(y);
a:=x*y;
writeln(a);
end.
Ответ дал:
0
А смысл так? Нужно всё и сразу вывести)
Ответ дал:
0
а, я задание не правильно поняла, тут типа через case надо было))))) но это решение тоже верное
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад