1.Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4 и оканчивающихся на 2. Программа получает на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0. Количество чисел не превышает 1000. Введенные числа не превышают 30 000.Программа должна вывести одно число: количество чисел, кратных 4 и оканчивающихся на 2.2.Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «NO» Программа получает на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0.Количество чисел не превышает 100. Введенные числа не превышают 300.Программа должна вывести одно число: количество двухзначных чисел, кратных 8, или выводит «NO», если таких чисел нет. Значение должно выводиться с точностью до десятых.3.Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое двухзначных чисел или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0.Количество чисел не превышает 100. Введенные числа не превышают 300.Программа должна вывести среднее арифметическое двухзначных чисел или выводит «NO», если таких чисел нет. Значение должно выводиться с точностью до десятых.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Paint пен Sketchup айырмашылықтар қандай?
Автор: I.B.Petrishchev
Тармақталу алгоритмдерін программалау
Автор: olgapotapova
ПЕРВОМУ ОДНО ЗАДАНИЕ НА ФОТО
Автор: kolesnikovaen
Паскаль 2000 mod 12 =Объясните , по сути 2000/12 = 166, 66666Но в паскале пишет число 8
Автор: Alekseeva_Khlistov
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