<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>Вариант 1</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
var y:real;
if x<=0 then y:=2*Sin(Abs(x))
else
if x<=5 then y:=Sqrt(x)
else
if x<=10 then y:=2*x*x-Sqrt(x)
else y:=Cos(2*x)/a;
Writeln('Y=',y)
end.
<u>Вариант 2</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
Writeln('Y=',
x<=0 ? 2*Sin(Abs(x)) :
x<=5 ? Sqrt(x) :
x<=10 ? 2*x*x-Sqrt(x) : Cos(2*x)/a)
end.
<u>Примеры</u>
Введите х и a через пробел: 12.4 -3
Y=-0.315050171382724
Введите х и a через пробел: 5.8 1.156
Y=64.8716810842415
Могут быть небольшие ошибки
var a: integer;
begin
readln (a);
if (a mod 2)=0 then
writeln ('да')
else
writeln ('нет');
end.
1. Загрузочные вирусы.
2. Файловые вирусы.
<span>3. файлово-загрузочные вирусы. </span>
<span>4. Сетевые вирусы. </span>
<span>5. Документные вирусы.</span>
#include <iostream>
using namespace std;
int main () {
int digit = 300;
do {
int sum = 0;
int teiler = 1;
while (teiler <= digit)
<span> {</span>
if (digit % teiler == 0)
<span> sum+=teiler;</span>
<span> teiler++;</span>
<span> }</span>
if(sum % 10 == 0)
<span> {</span>
cout << digit << endl;
<span> }</span>
<span> digit++;</span>
<span> } </span>while (digit <= 600);
return 0;
}
<span>
</span>