2+8 =10 - сума цифр
2×8=16 - произведение цифр
Var
S:real;
A:integer;
Begin
S:=0;
For A:= 11 to 99 do
if A mod 2 <> 0 then S:=S+sqrt(A);
WriteLn('S = ',S)
End.
Для наилёгкого поиска нужного сайта
{ 1 – дециметр, 2 – километр, 3 – метр, 4 – миллиметр, 5 – сантиметр.}
var
units: integer;
value, factor: real;
begin
write('Введите значение - '); readln(value);
write('Введите единицу измерения - '); readln(units);
case units of
1: factor := 0.1;
2: factor := 1000;
3: factor := 1;
4: factor := 0.001;
5: factor := 0.01;
else
factor := 1;
end;
writeln(value * factor, ' м');
end.
Решение пишу с телефона. Поэтому проверить, компилируется ли программа или нет, я не смогу.
program zd1;
var x,y,pi:integer;
begin
writeln ('Введите значение переменной X');
readln (x);
pi:=3,14;
if (0 <= x <= 1) then y:=x^4-4
else
y:=sqr(x)-sin (pi*sqr (x));
writeln ('Ответ = ', y);
end.