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

Составить программы для задач (в Паскале)
1) Вводится натуральное число N. Вывести все целые числа от N до 1.
Пример:
Входные данные: 5
Выходные данные: 5 4 3 2 1
2) Вводятся два целых числа A и B. Вывести все нечётные числа от A до B, включая A и B.
Пример:
Входные данные: 3 10
Выходные данные: 3 5 7 9
3) Вводятся два целых числа A и B. Вывести сумму всех чисел от A до B, включая A и B, которые заканчиваются на 7.
Пример:
Входные данные: 5 30
Выходные данные: 51
(Пояснение: 7+17+27=51)
Хелп ми

👇
Ответ:
germanbet
germanbet
11.10.2021

я не думаю что это так но я это понимаю вот так -                                            


Составить программы для задач (в Паскале) 1) Вводится натуральное число N. Вывести все целые числа о
4,4(12 оценок)
Открыть все ответы
Ответ:
muratowaasya
muratowaasya
11.10.2021
1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while i<=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until i>n;
  writeln(x,' в степени ',n,' равно ',p );
end.
4,6(52 оценок)
Ответ:
joom3
joom3
11.10.2021

program sravnenie;

var a,b:integer;

begin

 write('Введите первое число для сравнения: ');

 readln(a);

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

 readln(b);

 if(a>b) then writeln('Первое число ',a, ' больше второго числа ',b)

 else if(a=b) then writeln('Первое число ',a, ' равно второму числу ',b)

 else writeln('Первое число ',a, ' меньше второго числа ',b);

end.

Объяснение:

Выше программа на языке программирования Pascal

Если будет нужно на Python/C++, напишешь в комментарии, добавлю

Надеюсь , удачи.

К ответу прикрепляю скриншот, что всё работает


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