const nn=10;
var
a:array [1..nn] of integer;
i,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to nn do readln(a[i]);
for i:=1 to nn do
begin
if a[i] mod 2 =0 then s:=s+1;
if a[i] mod 10 =5 then k:=k+1;
end;
writeln('Четных элементов: ',s);
writeln('Элементов оканчивающихся на 5: ',k);
end.
1)#include <iostream>
using namespace std;
int main()
{
int x;//вводит пользователь
int y;//фунцыя
cout << "Please enter x > ";
cin >> x;
if (x <= -2 & x <= 2)//если -2<=x<=2
y = x * x;
else
y = 4;
cout << "From x : " << x << "; Y = " << y << endl;
system("pause");
return 0;
}
2)
#include <iostream>
using namespace std;
int main()
{
int x;//вводит пользователь
int y;//функцыя
cout << "Enter x > ";
cin >> x;
if (x < 2)
y = (1 + cos(2 * x)) / 2;//формула cos^2 X;
else
y = 1 + (1 - cos(2 * x)) / 2;//формула sin^2 X;
cout << "Your function from X : " << x << "; Y = " << y << endl;
system("pause");
return 0;
}
<em>Возможно запорол с формулами, перепроверь наверняка.</em>
5 кбайт = (1024 байт *5 = 5120 байт) , ( 5120*1024 бит = 5242880 бит)
5кбайт = 5120 байт = 5242880 бит
A10=1*10^2+4*10+3+5*10^(-1)+1*10^(-2)+1*10^(-3)
A16=1*16^2+10*16+3+5*16^(-1)+12*16^(-2)+1*16^(-3)
Var s,r,k: string;
j: integer;
begin
write('строка: '); readln(s);
foreach k in s.Split(' ').Distinct do
begin
j:=0;
foreach r in s.Split(' ') do
if r=k then j:=j+1;
writeln('слово ','"',k,'"',' встречается ',j,' раз');
end;
<span>end.
</span>