Числа Двоичный Кодоо11210311410051016110711181000100110 101011101112 110013 1101111015 111116 1000017Задаруйсамостоятельно18Закопируйсамостоятельно19акодируйсамостоятельно20Закодируйсамостоятелно21Закодируясамостaнтальна
Ответы
Задача 1:
var a,b: real;
var c: char;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите нужную операцию (+,-,*,/): ');
readln(c);
if (c='+') then writeln('Результат: ',a+b)
else if (c='-') then writeln('Результат: ',a-b)
else if (c='*') then writeln('Результат: ',a*b)
else if (c='/') then writeln('Результат: ',a/b);
end.
Задача 2:
var a: integer;
begin
write('Введите количество кроликов: ');
readln(a);
write('Количество морковок: ',3*100+a*2);
end.
Задача 3:
var a: integer;
begin
write('Введите число: ');
readln(a);
write('Последняя цифра числа: ',a mod 10);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Дано: A¯¯¯∧D.Заполни таблицу истинностиДобавьте объяснение ребята Даю 10
Автор: alekseysokolov29816
Когда может возникнуть необходимость в настройках рабочего стола
Автор: katrin819
Что относится к телам вращения?
Автор: bulk91675
Задача 1:
var a,b: real;
var c: char;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите нужную операцию (+,-,*,/): ');
readln(c);
if (c='+') then writeln('Результат: ',a+b)
else if (c='-') then writeln('Результат: ',a-b)
else if (c='*') then writeln('Результат: ',a*b)
else if (c='/') then writeln('Результат: ',a/b);
end.
Задача 2:
var a: integer;
begin
write('Введите количество кроликов: ');
readln(a);
write('Количество морковок: ',3*100+a*2);
end.
Задача 3:
var a: integer;
begin
write('Введите число: ');
readln(a);
write('Последняя цифра числа: ',a mod 10);
end.