#include<iostream>
#include<cmath>
using namespace std;
int main()
{
setlocale(LC_ALL,"RUS");
int N;
cout <<"Введите количество чисел: ",cin >> N;
cout <<"Введите сами числа: ";
int k = 0;
for(int i = 0; i < N; i++)
{
int A;
cin >> A;
if (A > 3)
{
int B = 1, K = sqrt(A), d = 2;
while(d <= K)
{
if (A % d++ == 0)
{
B = 0;
break;
}
}
if (B) k++;
}
else if (A > 1) k++;
}
cout <<"Количество простых, среди введённых: "<<k;
return 0;
}
var
a, b: <em>real</em>;
begin
readln(a, b);
writeln((sqr(a) + sqr(b)) / 2);
writeln((System.Math.Abs(a) + System.Math.Abs(b)) / 2);
<span>end.</span>
Информатику плохо знаю, поэтому могу дать ответ только на 1 и 2 задание
1
а)11 мб б) 7168 мб с) 5 мб
2
а) 524228 б б)10240 кб
Флешка cd-диск и delev
различия флешка меньше чем cd-диск
delev больше чем cd-диск и флешка
Var
a: array[1..4] of integer;
i, max: integer;
begin
for i := 1 to 4 do
readln(a[i]);
max := a[1];
for i := 1 to 4 do
if (a[i] mod 2 = 0) and (a[i] >= max) then
max := a[i];
if max mod 2 = 0 then
writeln(max)
else
writeln('not found');
end.