Гэндальф, гномы и мистер Бэггинс! Мы сошлись в доме нашего друга и собрата по заговору, превосходного, дерзновенного хоббита — да не выпадет никогда шерсть на его ногах! — воздадим должное его вину и элю!

— Мы сошлись здесь, дабы обсудить наши планы, наши и средства, наши умыслы и уловки. Очень скоро, еще до рассвета, мы тронемся в долгий путь, в путешествие, из которого некоторые из нас, а возможно, даже все, кроме, разумеется, нашего друга и советчика, хитроумного чародея Гэндальфа, могут не вернуться назад.

Веселое вступление, не правда ли? Что остается делать бедному Бильбо, как не в составлении такого плана, который даст надежду все же вернуться в родной Шир ему в этом, напишите программу.

Программа должна выводить числа от первого введенного до числа, равного длине введенной строки (не включая), с шагом, равным второму введенному числу. Если длина строки окажется меньше первого числа, то шаг должен быть отрицательным.
ПИТОН СТРОЧНО

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Tim4ik0205

02.01.2021 11:37

написать код для Питона Домашнє завдання з інформатики: зробити задачу в python. Задача 1. З клавіатури вводяться три числа. Визначити, чи існує трикутник з такими...

creator4567

17.01.2022 16:36

Вычислительную часть алгоритма оформить как функцию с параметрами без возвращаемого значения, где исходные данные передаются через параметры по значению, а результат...

arinabolshakov1

18.08.2021 08:11

Написать программу вычисления скорости при равноускоренном движении дам...

МаксимГерасименкоВла

22.10.2022 15:48

Сравни инструменты художника художника с инструментами на соотаетствующей панели графического редактора paint .какие из них отсутствуют у художника? ? ?...

1анж48

21.08.2021 18:49

Какое колличество карандашей могло быть в коробке ,если известно что при вытаскивании 4х штук было полученно 2 байта информации...

Ivanova567

26.04.2021 03:30

Решить ! если можно то фото решения . только обведённые....

Mashalove16

14.07.2020 22:40

Які з наведених можливостей оброблення мультимедійних файлів надає медіа програвач windows?...

Deniza23

04.02.2022 05:31

Отметьте предложения , в которых слова пишутся слитно 1 по (этому ) вопросу обратитесь в справочное бюро 2 за (то) пять 3 что (бы) увидеть , надо вглядеться 4 промерз...

nikanor020499

04.02.2022 05:31

Строение и функции опорно-двигательной системы млекопитающих....

janaljubche

04.02.2022 05:31

Сочинение про друзей с употреблением частиц...

Ответ:

alalosh

05.05.2022 12:08

Ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z:integer;

begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
while (z = 1) do
begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
end;

end.

0,0(0 оценок)

Ответ:

valu49

05.05.2022 12:08

1.
Begin
Writeln('Привет!');
Writeln('Меня зовут Саша!');
Writeln('Я студентка 2-ого курса начального образования!');
Writeln('Я будущий учитель младших классов...');
end.

2.
var n:Integer;
Begin
Read(n);
Writeln('Квадрат =',n*n);
end.

3.
var a:Integer;
Begin
Read(a);
Writeln('S = ',a*a);
Writeln('P = ',4*a);
end.

4. var n:Integer;
   Begin
     Read(n);
     Writeln(n+10);
end.

5. var a,b:Integer;
   Begin
     Read(a,b);
     Writeln(' S = ',a*b);
     Writeln(' P = ',2*(a+b));
   end.

6. var a,b,c:Integer;
   Begin
     Read(a,b,c);
     Writeln('Сума = ',a+b+c);
   end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку