Составить программу paskal для: 1)найти стороны прямоугольника, у которого известны периметр и площадь 2)дано трехзначное натуральное число. определить, является ли сумма его цифр двузначным числом
Var P,S:real; Begin Write('P = ');Read(P); Write('S = ');Read(S); if (P/2-sqrt(P*P/4-4*S))/2<0 then S:=(P/2+sqrt(P*P/4-4*S))/2 else S:=(P/2-sqrt(P*P/4-4*S))/2; WriteLn('Первая сторона равна ',S); WriteLn('Вторая ',P/2-S); End.
2)
Var A:integer; Begin Write('A = ');Read(A); if ((A div 10) mod 10) +(A mod 10)+(A div 100)>9 then Write('Является') else Write('Не является') End.
Компьютерный вирус это специально написанная не большая по размерам программа, которая может приписывать себя к другим программам то есть заражать их, а также выполнять нежелательные действия на компьютере. программа внутри которой находится вирус называется зараженной. когда такая программа находит работу то сначала управления получает вирус. вирус находит и заражает другие программы, а также выполняет вредные действия. например: портит файлы или таблицу размещения файлов на диске а также засоряет оперативную память.
1. Компьютерный вирус - это вредоносная программа, которая воспроизводить себя через компьютер или через компьютерные сети. Компьютер может заразиться вирусом через флешку, электронную почту или программы для обмена сообщениями.
2. Флешка, диск, интернет.
3. Уменьшение объема свободной оперативной памяти; замедление загрузки и работы компьютера; непонятные (без причин) изменения в файлах, а также изменения размеров и даты последней модификации файлов; ошибки при загрузке операционной системы; непонятные системные сообщения, музыкальные и визуальные эффекты и т.д.
4. Потеря программ, данных, стирание информации в системных файлах, выход из строя движущихся частей жесткого диска, уменьшение объёма памяти, зависание компьютера, и многое другое.
5. Не заходить на незнакомые сайты; регулярно проверять компьютер на наличие вирусов(использовать антивирус), не запускать незнакомые файлы.
6. Антивирус - это программа для обнаружения компьютерных вирусов. Виды антивирусов: сканеры, блокираторы, иммунизаторы.
1)
Var P,S:real;
Begin
Write('P = ');Read(P);
Write('S = ');Read(S);
if (P/2-sqrt(P*P/4-4*S))/2<0 then S:=(P/2+sqrt(P*P/4-4*S))/2
else S:=(P/2-sqrt(P*P/4-4*S))/2;
WriteLn('Первая сторона равна ',S);
WriteLn('Вторая ',P/2-S);
End.
2)
Var
A:integer;
Begin
Write('A = ');Read(A);
if ((A div 10) mod 10) +(A mod 10)+(A div 100)>9 then Write('Является')
else Write('Не является')
End.