На языке Паскаль сделайте, пожалуйста.
Приложения:
Ответы на вопрос
Ответил антагонист
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
допёр только первую
Новые вопросы