1.Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4 и оканчивающихся на 2. Программа получает на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0. Количество чисел не превышает 1000. Введенные числа не превышают 30 000.Программа должна вывести одно число: количество чисел, кратных 4 и оканчивающихся на 2.2.Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «NO» Программа получает на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0.Количество чисел не превышает 100. Введенные числа не превышают 300.Программа должна вывести одно число: количество двухзначных чисел, кратных 8, или выводит «NO», если таких чисел нет. Значение должно выводиться с точностью до десятых.3.Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое двухзначных чисел или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0.Количество чисел не превышает 100. Введенные числа не превышают 300.Программа должна вывести среднее арифметическое двухзначных чисел или выводит «NO», если таких чисел нет. Значение должно выводиться с точностью до десятых.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Определи результат выполнения программы: х=4y=41x=у-хy=x+7print('y=', y)ОЧЕНЬ
Автор: Станислав Роман994
написать что это программа сделала .
Автор: Less2014
Получите развернутую форму чисел 221122, 01 , 296 3 8
Автор: спец387
Решите везде только 1 ответ.
Автор: klimenokvapeshop1408
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