С ТЕСТОМ
вот перевод на русский
1)Оператор реализует действие: Переменной K: Boolean присвоить значение True, если числа А, В, С упорядочены по возрастанию, и значение False в противном случае?
2)Какой оператор реализует действие: Если А - отрицательное число, изменить его знак на противоположный.
3)Установите порядок выполнения операторов программы для определения большего из трех чисел а, b,c
4)Установите соответствие между операторами и действиями, которые они реализуют
4.1 От большего из чисел A и B отнять меньше.
4.2Переменной Max присвоить значение большего из чисел А и B.
4.3 Если целое число А парное, поделить его на 2.
4.4 Если целое число А парное, поделить его на 2, в противном случае умножить на 10.
Задача 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.
Задача 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.