1.Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4 и оканчивающихся на 2. Программа получает на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0. Количество чисел не превышает 1000. Введенные числа не превышают 30 000.
Программа должна вывести одно число: количество чисел, кратных 4 и оканчивающихся на 2.
2.Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0.
Количество чисел не превышает 100. Введенные числа не превышают 300.
Программа должна вывести одно число: количество двухзначных чисел, кратных 8, или выводит «NO», если таких чисел нет. Значение должно выводиться с точностью до десятых.
3.Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое двухзначных чисел или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0.
Количество чисел не превышает 100. Введенные числа не превышают 300.
Программа должна вывести среднее арифметическое двухзначных чисел или выводит «NO», если таких чисел нет. Значение должно выводиться с точностью до десятых.
Program asd;
uses crt;
var a,b,c,max:integer; r:real;
begin
Write('Введите число A: ');
Readln(a);
Write('Введите число B: ');
Readln(b);
Write('Введите число C: ');
Readln(c);
If a>=b then max:=a
else
max:=b;
If c>max then
max:=c;
r:=a+b+c;
If (A>B) and (B>C) and (C>0) then
Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);
If (A<0) and (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A) then
begin
A:=max;
B:=max;
C:=max;
Writeln('A= ',a,' B= ',b,' C= ',c);
end
else
Writeln('Symma: ',r);
end
Объяснение:
Program asd;
uses crt;
var a,b,c,max:integer; r:real;
begin
Write('Введите число A: ');
Readln(a);
Write('Введите число B: ');
Readln(b);
Write('Введите число C: ');
Readln(c);
If a>=b then max:=a
else
max:=b;
If c>max then
max:=c;
r:=a+b+c;
If (A>B) and (B>C) and (C>0) then
Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);
If (A<0) and (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A) then
begin
A:=max;
B:=max;
C:=max;
Writeln('A= ',a,' B= ',b,' C= ',c);
end
else
Writeln('Symma: ',r);
end