Задачи:1)Найти насколько (количество) двузначных чисел кратных 3 больше чем двузначных...

Question

Задачи:
1)Найти насколько (количество) двузначных чисел кратных 3 больше чем двузначных чисел кратных 5.
2)Найти среднее арифмитическое нечетных чисел кратных 5 в интервале от 1 до 70
3)Найти разность между суммой двузначных нечетных чисел и суммой двузначных четных чисел.
(задачи на бэйсике)

Answer 1

1. var a,b,i:integer;
begin
for i:=10 to 99 do begin
if i mod 3=0 then inc(a);
if i mod 5 =0 then inc (b);
end;
Writeln ('числа, кратные 3: ',a,' числа, кратные 5: ',b);
if a>b then writeln ('чисел кратных 3 больше') else
writeln ('чисел кратных 5 больше');
end.

2. var k,i:integer;  s:real;
begin
for i:=1 to 70 do
if (i mod 2<>0) and (i mod 5 =0) then begin
k:=k+1;
s:=s+i;
end;
s:=s/k;
writeln ('среднее арифметическое чисел, кратных 5 = ',s:10:3);
end.

Comments

блин, не дочитала про то, что это бэйсик