Написать программы в паскале. 1. дан массив целых чисел. напечатать все элементы, оканчивающиеся нулем. 2. дан массив целых чисел. все нечетные числа удвоить, а четные уменьшить вдвое. , !
{1. Дан массив целых чисел. Напечатать все элементы, оканчивающиеся нулем.} {mod - остаток от деления, например 123 mod 10 =3} var a: array [1..100] of integer; i,N:integer; begin writeln('Введите кол-во элементов массива'); readln(n); writeln('введите эл-ты массива'); for i:=1 to N do read(a[i]); writeln(' эл-ты массива оканчивающиеся нулем.'); for i:=1 to N do if a[i] mod 10 =0 then writeln(a[i]:5); end.
Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i); end; end.
//1б Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if x1+x2+sqr(x1+x2)=i then writeln(i); end; end.
//2 Var i,n,a,k1,k2:integer; begin readln(n); for i:=1 to n do begin readln(a); if a<1985 then k1:=k1+1; if a>1990 then k2:=k2+1; end; writeln('Родившиеся до 1985:',k1); writeln('Родившиеся после 1990:',k2); end.
Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i); end; end.
//1б Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if x1+x2+sqr(x1+x2)=i then writeln(i); end; end.
//2 Var i,n,a,k1,k2:integer; begin readln(n); for i:=1 to n do begin readln(a); if a<1985 then k1:=k1+1; if a>1990 then k2:=k2+1; end; writeln('Родившиеся до 1985:',k1); writeln('Родившиеся после 1990:',k2); end.
{mod - остаток от деления, например 123 mod 10 =3}
var a: array [1..100] of integer;
i,N:integer;
begin
writeln('Введите кол-во элементов массива'); readln(n);
writeln('введите эл-ты массива');
for i:=1 to N do read(a[i]);
writeln(' эл-ты массива оканчивающиеся нулем.');
for i:=1 to N do
if a[i] mod 10 =0 then writeln(a[i]:5);
end.