40 баллов СРООООООЧЧЧЧННОООО!!!ПОМОГИТЕ СДЕЛАТЬ ПАСКАЛЬ ПОЖАЛУЙСТА1.Составьте программку,
40 баллов СРООООООЧЧЧЧННОООО!!!
ПОМОГИТЕ СДЕЛАТЬ ПАСКАЛЬ ПОЖАЛУЙСТА
1.Составьте программу, которая вычисляет сумму всех нечетных, двузначных чисел;
2.Дано натуральное число n. Вычислите n5;
3.Дано число n. Напечатать естественные числа, квадрат которых не превосходит n.
Струс
Ксюха
n5 - это n^5?
Алла Шумак
5 это ступень
2 ответа
Kristina Rjabelkina
1.
var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
if i mod 2=1 then s:=s+i;
writeln('s = ',s);
end.
Результат:
s = 2475
2. Без использования стандартных функций:
var n,p,i:integer;
begin
readln(n);
p:=1;
for i:=1 to 5 do p:=p*n;
writeln(n,'^5 = ',p);
end.
Пример:
2
2^5 = 32
3.
var n,i:integer;
begin
readln(n);
i:=1;
while i*ilt;n do
begin
writeln(i,' (',i,'^2 = ',i*i,')');
i:=i+1;
end;
end.
Пример:
30
1 (1^2 = 1)
2 (2^2 = 4)
3 (3^2 = 9)
4 (4^2 = 16)
5 (5^2 = 25)
var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
if i mod 2=1 then s:=s+i;
writeln('s = ',s);
end.
Результат:
s = 2475
2. Без использования стандартных функций:
var n,p,i:integer;
begin
readln(n);
p:=1;
for i:=1 to 5 do p:=p*n;
writeln(n,'^5 = ',p);
end.
Пример:
2
2^5 = 32
3.
var n,i:integer;
begin
readln(n);
i:=1;
while i*ilt;n do
begin
writeln(i,' (',i,'^2 = ',i*i,')');
i:=i+1;
end;
end.
Пример:
30
1 (1^2 = 1)
2 (2^2 = 4)
3 (3^2 = 9)
4 (4^2 = 16)
5 (5^2 = 25)
Олежка
1)
var
i: byte;
sum: integer;
begin
sum := 0;
i := 11;
while i lt; 100 do
begin
sum := sum + i;
i := i + 2;
end;
writeln('Сумма нечетных элементов = ', sum);
readln;
end.
---------------------------------------------------------
2)
var
n: real;
begin
write('Введите n: ');
readln(n);
n := exp(ln(n) * 5);
writeln(n);
readln;
end.
------------------------------------------------
3)
var
n: integer;
i: integer;
begin
write('Введите n: ');
readln(n);
i := 0;
for i := 1 to n do
if sqr(i) lt;= n then
write(i, ' ')
else
break;
readln;
end.
var
i: byte;
sum: integer;
begin
sum := 0;
i := 11;
while i lt; 100 do
begin
sum := sum + i;
i := i + 2;
end;
writeln('Сумма нечетных элементов = ', sum);
readln;
end.
---------------------------------------------------------
2)
var
n: real;
begin
write('Введите n: ');
readln(n);
n := exp(ln(n) * 5);
writeln(n);
readln;
end.
------------------------------------------------
3)
var
n: integer;
i: integer;
begin
write('Введите n: ');
readln(n);
i := 0;
for i := 1 to n do
if sqr(i) lt;= n then
write(i, ' ')
else
break;
readln;
end.
Витек Ванадзин
В 3 задачке необходимы числа "квадрат которых не превосходит n".
Екатерина Наханькова
поможешь?))
Тельбухов
Василий
Спасибо гавриков.
Adelina Balantina
Поправил.
Володя Супругов
Очень коряво поправил. (
Левеншус
Катя
а где именно поправить надобно в решении?
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов