Решить задачи в паскале abc

1 руб

Все задачи в принципе лёгкие но решайте сами ! :)

Program Proizv2;
var
a,b: integer;
begin
Read (a);
b:=b+(a mod(10));
b:=b+(a mod(100)div(10));
b:=b+(a mod(1000)div(100));
b:=b+(a mod(10000)div(1000));
Write(b);
end.

Program Proizv2;
var
x: integer;
begin
Read (x);
Write(1.6*x);
end.

Program Proizv2;
var
year1,year,a1,a: integer;
begin
Read (year1);
Read (a1);
Read (year);
Read (a);
if a1<=a then begin
Write(year-year1);
end;
if a1>a then begin
Write(year-year1-1);
end;
end.

Program Proizv2;
var
a,b,c,d: integer;
begin
Read (a);
Read (b);
Read (c);

if a+b=0 then
d:=1;
if a+c=0 then
d:=1;
if b+c=0 then
d:=1;
if b+a=0 then
d:=1;
if c+a=0 then
d:=1;
if c+b=0 then
d:=1;
if d=1 then
Write ('Имеется')
else Write ('Не имеется');
end.

Program Proizv2;
var
p: Biginteger;
a,b,i: integer;
begin
Read(a,b);
p:=1;
for i:=8 to 15 do
p:=i*p;
Writeln(p);
p:=1;
for i:=a to 20 do
p:=i*p;
Writeln(p);
p:=1;
for i:=1 to b do
p:=i*p;
Writeln(p);
p:=1;
for i:=a to b do
p:=i*p;
Writeln(p);
end.

Это первые 5 заданий

а может быть сам ?

преноугоу6го

ага

Я пас.

1. (универсальное решение для любых чисел)
var
a: integer;
sum: integer;
begin
readln(a);
repeat
sum := sum+(a mod 10);
a:= a div 10;
until a>0;
writeln(sum);
end.

2.
var
x: float;
begin
readln(x);
writeln(x*8/5);
end.

3.
var
y1, m1, y2, m2: integer;
begin
readln(y1, m1);
readln(y2, m2);
writeln(((y2*12+m2-1)-(y1*12+m1-1)) div 12);
end.

4.
var
a,b,c: integer;
begin
readln(a,b,c);
if (a=-b) or (a=-c) or (b=-c) then
writeln('Yes');
else
writeln('No');
end.

Первые 4. Может потом ещё допишу. Думал будет интересно паскаль вспомнить, а оказалось лень :)

как вы это понимаете