Pascal abcиспользовать цикл for1. найти все такие тройки натуральных чисел x,y и z из интервала от 10 до 30, для которых выполняется равенство x2=z2 *y.2. найти количество натуральных чисел из интервала от 10 до 100 кратных

program ugadai;

var a,b,k:integer;

begin

b:=random(101)-50;

writeln('Попробуйте угадать число от -50 до 50 за 10 попыток');

writeln;

k:=1;

repeat  

write('Попытка ',k,'. Введи число: ');

readln(a);

if a>b then writeln('Загаданное число меньше!')

else if a<b then writeln('Загаданное число больше!')

else if a=b then

begin

writeln;

writeln('Вам удалось!');

k:=13;

end;

k:=k+1

until k>10;

if k=11 then

begin

writeln;

writeln('Попробуйте еще раз.')

end

end.

Объяснение:

Загадываем число (random)

Цикл с пост условием, k - счётчик попыток.

Условный оператор для корректировки угадывания.

Если все попытки исчерпаны, вывод предложения попробовать ещё раз.

При попадании вируса в СК,ПК начинает лагать, могут выходить странные рамки, и даже требования вернуть ПК в рабочее состояние.

С антивирусников можно очистить СК

Вирусописатели(хакеры) делают вирусы для того что бы считывать информацию с банковских карт, моб. телефонов, уничтожения ПОи т. д

Черви это вирусы которые ползают по сестеме медленно её разрушая. Спамеры отсылают спам. Воры считывают инфу.

Не лазить по сайтам с подозрительным содержанием, не скачивать файлы если вы не знаете от кого они и что в нутри. Устанавливать антивирусники

Отметь лучший ответ