М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
alinkass
alinkass
29.07.2021 16:51 •  Информатика

C. Сумма больших С клавиатуры вводится несколько чисел.
Найдите сумму чисел, превышающих 4.

Формат ввода
В первой строке вводится количество чисел n. 0 ≤ n ≤ 1000.

В следующей строке вводятся подряд n чисел ai через пробел. 0 ≤ ai ≤ 1000.

Формат вывода
Выведите сумму чисел, больших 4. Если таких чисел нет, выведите 0.

Пример
Ввод Вывод
4 5
2 5 3 4

👇
Открыть все ответы
Ответ:
чебурек48
чебурек48
29.07.2021

#include<conio.h>

#include<stdio.h>

#include<iostream.h>

 

float Max(float a,float b)

 

 {

      if (a > b) then return a

         else return b;

}

 

float Min(float a,float b)

 {

      if (a < b) then return a

         else return b;

 

int main()

{

     float x,y,z,p;

      clrscr;

      cout<<"Введите 3 числа: ";

      cin>>x;

      cin>>y;

      cin>>z;

      if (z < 0)  p = Max (x, y) 

              else p =Min (x, y);  

    

       cout<<" \nP равно:"<<p<<"\n"; 

       getch();  

 

       return 0; 

 

 

4,5(6 оценок)
Ответ:
rgh223344
rgh223344
29.07.2021
1.                                                                        

program raf105;

var n,m,i:integer;

begin

writeln('Введите диапазон чисел (2 числа через пробел) которые нужно возвести в квадрат');

readln(n,m);

writeln('Вывод:');

for i:=n to m do

 writeln(i**2)

end.

2.                                                                        

program raf105;

var a,b,kol1,kol2:integer;

begin

write('Введите число: ');

readln(a);

while a <> 0 do

begin

 b:= a mod 10;

 if b<>0

   then if (b mod 2)=0

     then kol1+= 1

     else kol2+= 1;

 a:= a div 10;

end;

writeln('В числе ',kol1,' чётных и ',kol2,' нечётных цифр');

end.

3.                                                                        

program raf105;

var n,i,kol:integer;

begin

write('Введите N: ');

readln(n);

for i:=1 to n-1 do

 if ((i mod 2)<>0) and ((i mod 3)<>0) and ((i mod 5)<>0)

   then kol+=1;

writeln('Вывод: ',kol);

end.

Язык PascalABC

4,6(73 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ