Траляля и труляля загадали 2 числа заведомо известно ,что число загаданное меньше числа труляля.Найти сумму квадратов всех целых чисел от числа траляля до труляля включительно
Формат входных данных: входные данные содержат два целых числа числа вводятся с клавиатуры
входящие данные 510) результат работы программы 355»
Ответы на вопрос:
ответ:
объяснение:
// возведение в степень
program stepen;
var
p,i,n, a: integer;
begin
write('введите число и степень');
readln(a,n);
p: =1;
for i: =1 to n do p: =p*a;
writeln('число ',a, ' в степени ',n,' = ',p);
readln;
end.
//сумма нечетных цифр числа
program project1;
var
a, b, s : integer;
begin
s : = 0;
write('введите число: ');
readln(a);
while a < > 0 do
begin
b : = a mod 10;
if b mod 2 < > 0 then s : = s + b;
a : = a div 10
end;
writeln('сумма нечетных цифр: ', s);
readln;
end.
//сумма четных чисел до n
program summach;
var
s,n,i: integer;
begin
write('введите n=');
readln(n);
if n mod 2< > 0 then n: =n-1;
n: =n div 2;
s: =0;
for i: =1 to n do
s: =s+2*i;
writeln('s=',s);
readln;
end.
//===================================
// сумма четных с циклом repeat
program summach1;
write('введите n=');
readln(n);
if n mod 2< > 0 then n: =n-1;
s: =0; i: =1;
repeat
s: =s+2*i;
i: =i+1;
until 2*i> n ;
writeln('n=',n);
writeln('s=',s);
readln;
Популярно: Информатика
-
фиксоня15.02.2022 07:25
-
Никита1111111495755826.05.2022 00:53
-
Abdresh15.06.2022 14:27
-
qwerty80406.09.2022 03:15
-
tanyasidorcova19.05.2020 06:16
-
Grinberg200320.09.2020 07:55
-
Пенёк15525.10.2021 06:48
-
dxdarthur200129.11.2022 05:04
-
Артём1977777716.02.2023 07:04
-
anna2610201519.06.2022 09:16