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

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

👇
Ответ:
Mifka15
Mifka15
28.03.2023
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var t: real;
var i:=1;
while true do
begin
t:=range(i,i+10).Select(x->x*x).Sum();
if (frac(sqrt(t))=0) then break;
inc(i);
end;
range(i,i+10).Println();
end.
4,6(70 оценок)
Ответ:
MrKreol
MrKreol
28.03.2023
Var
  i,n,s:integer;

begin
  n:=1;
  while true do begin
    s:=0;
    for i:=n to n+10 do s:=s+i*i;
    if s=Sqr(Trunc(Sqrt(s))) then break;
    n:=n+1
    end;
  Write('Сумма квадратов чисел на интервале [',n,';',n+10,'] = ');
  Writeln(s,' = ',Trunc(Sqrt(s)),'^2')
end.

Результат
Сумма квадратов чисел на интервале [18;28] = 5929 = 77^2
4,6(80 оценок)
Открыть все ответы
Ответ:

2. var

r: integer;

result: string;

begin

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

readln(r);

case r of

1: Result := 'январь';

2: Result := 'февраль';

3: Result := 'март';

4: Result := 'апрель';

5: Result := 'май';

6: Result := 'июнь';

7: Result := 'июль';

8: Result := 'август';

9: Result := 'сентябрь';

10: Result := 'октябрь';

11: Result := 'ноябрь ';

12: Result := 'декабрь';

end;

writeln(' месяц : ',result);

end.

Объяснение:

я написал ответ только к 2 задаче

постарайся сам сделать 1 ую задачку.

4,4(59 оценок)
Ответ:
infourazyukp092y0
infourazyukp092y0
28.03.2023

2. var

r: integer;

result: string;

begin

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

readln(r);

case r of

1: Result := 'январь';

2: Result := 'февраль';

3: Result := 'март';

4: Result := 'апрель';

5: Result := 'май';

6: Result := 'июнь';

7: Result := 'июль';

8: Result := 'август';

9: Result := 'сентябрь';

10: Result := 'октябрь';

11: Result := 'ноябрь ';

12: Result := 'декабрь';

end;

writeln(' месяц : ',result);

end.

Объяснение:

я написал ответ только к 2 задаче

постарайся сам сделать 1 ую задачку.

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