elenalm
08.06.2023 11:13

Задача на праграмирование, которую не каждый программист ПРАВИЛЬНО решить сможет...
А вы сумеете?)
(ПРОВЕРЬТЕ В ПАСКАЛЕ)​


Задача на праграмирование, которую не каждый программист ПРАВИЛЬНО решить сможет...А вы сумеете?)(ПР

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Карина9653
15.02.2021 21:09

var i,A,B:integer;

ans:real;

f,g:text;

begin

assign(f,'input.txt');

assign(g,'output.txt');

reset(f);

rewrite(g);

readln(f,i);

read(f,A,B);

if (i=4) and (B=0)

then

begin

write(g,'Error');

close(g);

exit;

end;

if (i=5) and (B=0)

then

begin

write(g,'Error');

close(g);

exit;

end;

case (i) of

1:ans:=A+B;

2:ans:=A-B;

3:ans:=A*B;

4:ans:=A div B;

5:ans:=A mod B;

end;

write(g,ans);

close(f);

close(g);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота