1. mod - команда, при которой компьютер выводит на экран остаток (mOd, тип O - остаток :))
Это означает, что c= 500 mod 23 , c=17 - ответ
div - команда, при которой компьютер выводит на экран целое число от деления (dIv, типааа i - integer (число с английского) :))
Это означает, что a= 500 div 3 , a=166 - ответ
2. 5 -> 127
Можно составить алгоритм такой:
22122 - это порядок команд и ответ. Не трудно посчитать, как это получилось.
3. Длина цепочки ТОРГ равна 4, значит мы дублируем левый символ (Т).
У нас получается ТОРГТ, а оно не чётное, так как длина цепочки равна 5, значит добавляем к цепочке символ (М) в начало самой цепочки.
Получилось: МТОРГТ - ответ
1. Я игриком обозначил знак функции (f)
program z1;
var y: integer;
x: real;
begin
read(x);
if (-2.4 <= x) and (x <= 5.7) then y:= sqr(x)
else y:= 4;
end.
2. program z1;
var a, b, c: integer;
begin
if (a = b) and (b = c) and (a = c) then write('Треугольник является равносторонним')
else write('Треугольник не является равносторонним');
end.
3. program z1;
var a, b, c: integer;
begin
if (a = b) or (a = c) or (b = c) then write('Треугольник является равнобедренным')
else write('Треугольник не является равнобедренным')
end.
*Важно:
В 2 и 3 номерах я указывал тип переменным integer, поскольку не сказано, что длины сторон являются целыми. Если длины сторон с дробной частью (например: 2.3 см), то типы данных меняем на real.
Удачи на уроке
a: real;
b:real;
Begin
Writeln ('Квадратный корень какого числа нужно найти?');
readln (a);
b:= Sqrt(a);
Writeln ('Корень от числа ', a, ' равен:' ,b);
End.