Var
x, y: real;
begin
readln(x);
x:=x-4;
if (x<0) then writeln('Error')
else writeln(sqrt(x):0:5);
readln
end.
Примечания:
(sqrt(x):0:5); - 5 - количество знаков после запятой, сколько надо, столько и пишешь. Ноль - не трогать.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadInteger3('Введите три целых числа:');
var s:=0;
if a.IsOdd then s+=a;
if b.IsOdd then s+=b;
if c.IsOdd then s+=c;
Writeln('сумма нечетных равна ',s)
end.
<u>Пример</u>
Введите три целых числа: 345423 -324342 1231
сумма нечетных равна 346654
Дана последовательность целых чисел 0,9,1,8,2,7,3,6,4,5,90,...следующее числа-двухзначное.укажите его
Kochcurov
18, 27, 36, 45 - сумма двух чисел была 9, у двузначных тоже. Может такая логика?
Ответ:
Объяснение:
появится ошибка в строке x:4
после того как поправишь ее на x:=4
а write на writeln
последовательно появятся
4
16
64
А перевода на русский нет случаянно?