В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
LaimZ
LaimZ
13.02.2022 17:35 •  Информатика

1) вывести на экран все трехзначные числа кратные 50 2) найти сумму нечетных чисел от 100 до 150 на паскале

Показать ответ
Ответ:
лада143
лада143
03.07.2020 01:23
VAR  
   k: LongInt;
BEGIN  
   k := 50; 
   While (k < 1000) do begin  
      k := k + 50; Write(k, ' ');
   End;
END.

VAR  
   sum, k: LongInt;
BEGIN  
   k := 101; sum := 0;  
   While (k < 150) do begin      
      sum := sum + k;  
      k := k + 2;  
   End; 

   Writeln(sum);
END.
0,0(0 оценок)
Ответ:
leisalina4
leisalina4
03.07.2020 01:23
Var   
k: LongInt;
Begin
k := 50; 
While (k < 1000) do begin  
k := k + 50; Write(k, ' ');
End;
End.

Var   
sum, k: LongInt;
Begin  
k := 101; sum := 0;   
While (k < 150) do begin      
sum := sum + k;  
k := k + 2;   
End; 
Writeln(sum);
End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота