Question

Помогите решить 3 задачки любые, кроме дополнительных

Answer 1

1.
var a,b,c:integer;
begin
write('Введите положительное двузначное число: ');
readln(a);
b:=a div 10;
c:= a mod 10;
writeln('Сумма цифр числа ',a, ' равна ', b + c)
end.

2.
var a,b,i,s,k:integer;
begin
write('Введите границы промежутка: ');
readln(a,b);
s:=0;
k:=a;
for i:=k to b do
begin
if k mod 3 = 0 then s:=s+k;
k:=k+1
end;
writeln('Сумма целых положительных чисел кратных 3 от ', a, ' до ',b, ' равна ',s)
end.

3.
var a,b,c,i,k,p:integer;
begin
k:=0;
p:=100;
for i:=p to 999 do
begin
a:= i div 100;
b:= i mod 100 div 10;
c:= i mod 10;
if (a+b+c) mod 5 = 0 then k:=k+1;
p:= p+1;
end;
writeln('Количество положительных трёхзначных чисел, сумма цифр которых кратна 5 равно ',k);
readln;
end.

4.
var a,b,c,i,k,p:integer;
begin
k:=0;
p:=10;
for i:=p to 99 do
begin
a:= i div 10;
b:= i mod 10;
if (((a+b) mod 3 = 0) and (b=4)) or (((a+b) mod 3 = 0) and (b=8)) then writeln(i);
p:= p+1;
end
end.