Предмет: Информатика,
автор: kochetov14122005
Кто шарит в информатике. ПОМОГИТЕ ПОЖАЛУЙСТА!!!!
Фото прекреплено.
Приложения:

Ответы
Автор ответа:
0
Ответ:
1)
Var
a, b : integer;
x: real;
Begin
Write('a, b:'); Readln(a,b);
x:=b/a;
Write('x=',x);
Readln;
End.
3)
Var
x,a, b: integer;
Begin
Write('Kg='); Readln(x);
Write('1Kg skolko rubley='); Readln(a);
b:=a*x;
Write('V obshem potracheno ',b,' rubley');
Readln;
End.
Объяснение:
Второе не получилось,
Я смог помочь!?
Похожие вопросы
Предмет: Английский язык,
автор: katushka200
Предмет: Русский язык,
автор: eemnagarova
Предмет: Русский язык,
автор: gaffarovakarina
Предмет: Алгебра,
автор: agorodilovskiy
Предмет: Математика,
автор: Kira13031