var a,b,c,k:integer;
znak:char;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите знак операции. Допустимые знаки: *,/,+,-');
readln(znak);
writeln('Введите второе число');
readln(b);
k:=0;
case znak of
'*':c:=a*b;
'/':if b<>0 then c:=(a div b)
else k:=1;
'+':c:=a+b;
'-':c:=a-b;
end;
if k=0 then writeln('Ответ - ',c)
else writeln('Деление на 0')
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
