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

Написать программу! найти сумму чётных чисел в интервале от а до в ( а и в - натуральные числа, а< в).

👇
Ответ:
Yfnfif2617
Yfnfif2617
26.12.2022
uses Crt;
 var a, b, temp, i, S:integer;
 begin
 ClrScr;

 Write (' a = ');   ReadLn(a);
 Write (' b = ');   ReadLn(b);
 S:=0;
 i:=a;
 while i<=b do
   begin
     if (i mod 2 = 0) then S:=S+i;
     i:=i+1;
   end;
 WriteLn(' S = ', S);
 ReadLn;
 end.
4,6(79 оценок)
Ответ:
era22222
era22222
26.12.2022
Var a,b,i,sum: integer; 
begin 

write ('Введите границы интервала: ');

read (a,b); 

for i:= a to b do 

if i mod 2 = 0 then sum:=sum + i;

writeln ('Сумма четных чисел в интервале от А до Б = ',sum);

end.
4,6(10 оценок)
Открыть все ответы
Ответ:
August12345
August12345
26.12.2022

var

 x, y, a, b, c, D, x1, x2: real;

 inp: string;

 inp_arr: array of string;

begin

 writeln('a b c');

 readln(inp);

 inp_arr := inp.split(' ');

 a := StrToFloat(inp_arr[0]);  

 b := StrToFloat(inp_arr[1]);

 c := StrToFloat(inp_arr[2]);

 D := b*b - 4 * a * c;

 x1 := (-b + sqrt(D)) / 2*a;

 x2 := (-b - sqrt(D)) / 2*a;

 if x1 > x2 then x := x1

 else x := x2;

 if x < 0 then y:= (1 / (x + (sin(x)/(x*x+1

 else y:= (x*x-1)*sin(x)/(x*x*x);

 write('a:', a, ' b:', b, ' c:', c, ' x:', x, ' y:', y);

end.

4,4(27 оценок)
Ответ:
cook16
cook16
26.12.2022

  начало

                                                  делим на 2

                          есть остаток                               нет остатка

                          возводим в куб                         возводим в кводрат

                                                    конец        

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