1. Условная конструкция if условие then тогда else иначе
Записываем формулу, не забывая о скобках. Квадратный корень - sqrt, модуль - abs.
Код (Pascal):
var x, y: real;
begin
read(x);
if x >= 0 then
y := sqrt(3 * x * x - 1) + 3
else
y := (7 * x + 3) / abs(x - 1);
write(y)
end.
Пример ввода:
2
Пример вывода:
6.3166247903553998
2. Трехзначное число является палиндромом, если первая и последняя цифра одинаковые. Первую цифру можно найти как целую часть от деления на 100, последнюю - как остаток от деления на 10.
Код (Pascal):
var n: integer;
begin
read(n);
if n div 100 = n mod 10 then
write('YES')
else
write('NO')
end.
Пример ввода:
707
Пример вывода:
YES
var
A: array [1..3, 1..5] of Integer;
i, j: Integer;
s: Real;
begin
Randomize;
WriteLn ('Массив:');
for i := 1 to 3 do begin // заполнение массива случайными значениями и вывод для просмотра
for j := 1 to 5 do begin
A [i, j] := Random (22) - 11;
Write (A [i, j], ' ');
end;
Writeln;
end;
for i := 1 to 3 do begin // замена элементов с четной суммой индексов на 555
for j := 1 to 5 do begin
if (i + j) mod 2 = 0 then
A [i, j] := 555;
end;
end;
WriteLn;
WriteLn ('Результат: '); // вывод результата
for i := 1 to 3 do begin
for j := 1 to 5 do begin
Write (A [i, j], ' ');
end;
Writeln;
end;
end.
