New 1 блок

1================================================================
program one;
var a,c,s:integer;
begin
{1. Дано 6 целых чисел. Подсчитать сумму тех чисел, которые кратны 3 и кратны 6.}
s:=0;
writeln('введите 6 чисел: ');
for c:=1 to 6 do
begin
readln(a);
if (a mod 3=0) and (a mod 6=0) then
s:=s+a;
end;
writeln('сумма чисел кратных 6 и 3');
writeln(s);
end.
2================================================================
program two;
var a,b,d,c,g:integer;
begin
{2. Дано 8 целых чисел. Подсчитать сумму квадратов тех чисел, которые кратны 5 или кратны 10.}
b:=0;
g:=0;
writeln('введите 8 чисел: ');
for c:=0 to 7 do
begin
readln(a);
if (a mod 5=0) then
b:=b+sqr(a);
end;
for c:=0 to 7 do
begin
if (a mod 10=0) then
g:=g+sqr(a);
end;
writeln('сумма чисел кратных 10 и 5');
writeln(b+g);
end.
3================================================================
program three;
var a,c,s:integer;
begin
{3. Дано 5 целых чисел. Подсчитать произведение тех чисел, которые заканчиваются на цифру 2.}
s:=1;
writeln('введите 5 чисел: ');
for c:=1 to 5 do
begin
readln(a);
if (a mod 10=2) then
s:=s*a;
end;
writeln('произведение чисел заканчивающихся на 2');
writeln(s);
end.
4================================================================
program four;
var d,g,a,b,c,ans:integer;
begin
{4. Найти количество неотрицательных чисел из 5 введенных.}
writeln('Введите 5 чисел:');
readln(g,d,a,b,c);
ans:=0;
if(a>0) then inc(ans);
if(b>0) then inc(ans);
if(c>0) then inc(ans);
if(g>0) then inc(ans);
if(d>0) then inc(ans);
writeln('Количество положительных чисел: ',ans);
end.
5================================================================
program five;
var d,g,a,b,c,f,ans,an:integer;
begin
{5. Найти разницу между количеством положительных четных чисел и количеством отрицательных нечетных чисел из 6 введенных.}
writeln('Введите 6 чисел:');
readln(g,d,a,b,c,f);
ans:=0;
an:=0;
if(a>0) and (a mod 2=0) then inc(ans) else if (a<0) and (a mod 2=0) then else if (a<0) then inc(an);
if(b>0) and (b mod 2=0) then inc(ans) else if (b<0) and (b mod 2=0) then else if (b<0) then inc(an);
if(c>0) and (c mod 2=0) then inc(ans) else if (c<0) and (c mod 2=0) then else if (c<0) then inc(an);
if(g>0) and (g mod 2=0) then inc(ans) else if (g<0) and (g mod 2=0) then else if (g<0) then inc(an);
if(d>0) and (d mod 2=0) then inc(ans) else if (d<0) and (d mod 2=0) then else if (d<0) then inc(an);
if(f>0) and (f mod 2=0) then inc(ans) else if (f<0) and (f mod 2=0) then else if (f<0) then inc(an);
writeln('Количество положительных четных чисел: ',ans);
writeln('Количество отрицательных нечетных чисел: ',an);
end.