Впаскаль. дана стоимость одного 1 кг конфет. вывести стоимость 1, 2, 10 кг конфет.
265
465
Ответы на вопрос:
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.
var x, y, a: integer;
begin
writeln('введите сколько кг');
read(x);
writeln('введите сколько стоит 1 кг');
read(y);
a: =x*y;
writeln(a);
end.
Популярно: Информатика
-
LinaDanilinovskaya20.08.2022 11:58
-
Роннилав07.11.2021 13:55
-
cerf170925.11.2020 15:12
-
nsotskova13.03.2022 03:21
-
Мери778822.02.2021 21:13
-
FenniXDouble12.02.2023 00:59
-
Mrsozic15.03.2020 13:33
-
dariabelka26.08.2022 16:19
-
малый606.07.2021 07:03
-
alexandra4444427.01.2021 16:01