Program ch;
var x,y: real;
begin
write('x='); readln(x);
write('y='); readln(y);
if ( ( y*y>=1-x*x) and (y>=0) and (y<=2) and (x>=-2) and (x<=2))
then writeln('true')
else writeln('false');
end.
<em>// PascalABC.NET 3.2, сборка 1509 от 27.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function SumDig(n:integer):integer;
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var a:=ReadSeqInteger('Вводите числа:',ReadInteger('n=')).ToArray;
Write('Палинодромы: ');
a.Select(x->x.ToString).Where(x->x=x.Inverse).Println;
var k:=ReadInteger('Введите простое число');
Write('Числа, сумма цифр которых больше введенного: ');
a.Where(x->SumDig(x)>k).Println
end.
<u>Пример</u>
n= 12
Вводите числа: 9437 2522 3534 1532 4664 6882 7629 5820 2530 9889 6526 6573
Палинодромы: 4664 9889
Введите простое число 19
Числа, сумма цифр которых больше введенного: 9437 4664 6882 7629 9889 6573
Есть несколько способов удаления программы.
1) заходишь в МОЙ КОМПЮТЕР ищешь там папку, в которой эта программа и удаляешь эту папку полностью.
2)заходишь в МОЙ КОМПЮТЕР, находишь папку этой программы, там будет среди прочих файлов значёк (обычно похож на корзину для мусора) открываешь его, он тебя спросит: "Вы действительно хотите удалить такую-то программу?" нажимаешь "ОК".
3) если программа имеет вредоносный файл-вирус, то он может не давать удалить себя и выдавать ошибку при удалении. В таком случае стоит с помощью антивирусника просканировать эту папку и удалить вирус, после этого можете удалять.
=$C$5+F6
Я проверила в программе, должно быть так
25 Гбайт = 214748364800бит
2048Кбайт = 2Мбайт
140 Мбайт = 1174405120
2028 Кбайт = 15,84 Мбит
5 Гбайт = 42949672960 бит