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
Если не видно на скриншоте (Я правильно понял,как нужно сделать?)
1)
Program v1;
var a:array[1..15]of integer;
i,n,kol:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(70)+10;
write('Значение матрицы: ');
for i:=1 to 15 do write(a[i]:5); writeln;
kol:=0;
for i:=1 to 15 do
if a[i]>50 then kol:=kol+1;
writeln(kol);
end.
2)
Program v1;
var a:array[1..20]of integer;
i,n,kol:integer;
begin
randomize;
for i:=1 to 20 do a[i]:=random(100)+50;
write('Значение матрицы: ');
for i:=1 to 20 do write(a[i]:5); writeln;
kol:=0;
for i:=1 to 20 do
if a[i]<100 then kol:=kol+1;
writeln('Количество элементов массива, значение которых меньше 100: ',kol);
end.
b:boolean;
begin;
readln(n);
if frac(sqrt(n))=0 then b:=true else b:=false;
writeln(b);
end.