Предмет: Информатика,
автор: Arishka798
На языке Паскаль сделайте, пожалуйста.
Приложения:
Ответы
Автор ответа:
0
program q;
var a,b,x:integer;
beginwriteln('введите a');
readln(a);
x:=a*2;
if (x<10) then
x:=x-5
else
x:=x+6;
writeln(x);
end.
var a,b,x:integer;
beginwriteln('введите a');
readln(a);
x:=a*2;
if (x<10) then
x:=x-5
else
x:=x+6;
writeln(x);
end.
Автор ответа:
0
допёр только первую
Похожие вопросы
Предмет: Окружающий мир,
автор: aldiyarurazbayev09
Предмет: Қазақ тiлi,
автор: Lover435
Предмет: Қазақ тiлi,
автор: nargizaa20071932
Предмет: Геометрия,
автор: Casha95