Ответы на вопрос:
1)
var
x, y: integer;
begin
readln(x);
y : = 4*x+5;
writeln(y)
end.
2)
var
a, b,c : integer;
begin
readln(b);
readln(c);
a : =b*2*c;
writeln(a);
end.
qbasic
? "введите стоимость книг и сумму денег соответсвенно через запятую"
input a,b
if a=b then 1 else 2
1 ? "" : goto 10
2 if a> b then 3 else 4
3 a-b=c
? "не хватает денег,доплатите"; c : goto 10
4 b-a=r
? "ваша здача"; r
10 end
Популярно: Информатика
-
Sasha67000022.04.2022 23:09
-
piotrewch22.10.2020 09:41
-
Лисёнка200502.03.2021 08:24
-
dshaa1413.05.2022 05:53
-
olgayabs76oxczon19.05.2020 19:27
-
fuguh23.06.2021 16:19
-
Плиззззззззззззззззз01.11.2022 09:59
-
sevostyanova200207.04.2023 20:29
-
shishovtopking15.11.2020 15:01
-
MoNsTeR22127.05.2023 09:20