Задали сложну по составим программу "калькулятор", которая после ввода двух чисел и одного из знаков +, -, *, / произведёт вычисления, а результат выдаст на экран.
Var a,b,s:real; sim:char; Begin writeln('Введите два числа'); readln(a,b); writeln('Введите знак операции'); readln(sim); case sim of '+': s:=a+b; '-': s:=a-b; '*','x': s:=a*b; '/',':': s:=a/b; end; writeln (a,sim,b,'=',s); end.
Если число 49 записывается как 121, значит первый остаток от деления равен 1, то есть основанием системы счисления является число, кратное 48.
121 имеет 3 разряда, значит основание однозначно меньше 10 и больше 2. Подходят 3, 4, 6, 8.
Учитывая, что в числе 121 три разряда, значит число 48 делилось всего три раза. Число 8 не подойдет, т.к. 48/8=6, значит будет всего два деления. Число 3 не подойдет, т.к. 48/3 = 16, 16/3=5 - то есть тут будет больше трёх знаков. Число 4 не подойдет, т.к. 48/4=12, а 12 делится на 4 без остатка, но, судя по числу, во втором делении остаток должен быть равен 2. Остаётся число 6. Проверим
Если Вы ранее пользовались интернетом и все было нормально, то следует проверить компьютер на вирусы. Возможно антивирусная программа попросту устарела. Тогда, следует обновить антивирусную программу или установить новую. Если же вирусов нет, то проверьте качество сети, иногда браузеры выдают аварийную ошибку, когда прерывается связь. Это можно легко определить, на модеме будет часто и прерывисто мигать лампочка (если у вас модем допустим мегафон или что-то подобное), на стационарном модеме, подключенном к телефону, потухнет или будет гореть красным знак "собаки". Когда вы убедились, что с Вашей стороны все в порядке. то вы имеете право обратиться в "Центр управления сетями и общим доступом", или обратиться по телефону, указанному в договоре с компанией представителем услуг, с сообщением о неисправности сети. В указанный срок они обязаны устранить неполадки.
a,b,s:real;
sim:char;
Begin
writeln('Введите два числа');
readln(a,b);
writeln('Введите знак операции');
readln(sim);
case sim of
'+': s:=a+b;
'-': s:=a-b;
'*','x': s:=a*b;
'/',':': s:=a/b;
end;
writeln (a,sim,b,'=',s);
end.