информатика
Задача 1. Дано натуральное n-значное число. Верно ли, что сумма его цифр больше 10. Задача 2. Дано натуральное n-значное число. Определить, сколько раз в нем встречается цифра, равная последней. Задача 3. Составить программу нахождения количества делителей числа n (значение n вводится с клавиатуры). Задача 4. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности. Задача 5. Дано натуральное число. Верно ли, что это число четырехзначное? Задача 6. Известны оценки по информатике 15 учеников класса. Выяснить, есть ли среди них двойки. Задача 7. Даны вещественные числа b1, b2, b3,,…,b9. Определить среднее арифметическое тех из них, которые больше 10. Задача 8. Известна масса каждого из 15 учеников класса. Верно ли, что масса самого тяжёлого из них превышает массу самого лёгкого более, чем в два раза?
Оставить ответОтвет №1
№1
var
a:array[0..9] of integer;
n,i:integer;
b:longint;
begin
write('введите число:');readln(b);
while b>0 do begin i:=b mod 10;inc(a[i]);b:=b div 10;end;
for i:=1 to 9 do n:=n+a[i]*i;
if n>10 then writeln('верно') else writeln('неверно');
end.
№2
Не знаю
№3
var n,i,k:integer;
begin
write('n='); readln(n);
k:=2;
for i:=2 to n div 2 do
if n mod i = 0 then k:=k+1;
writeln('k=',k);
end.
Знаете ответ?