For4. Дано вещественное число стоимость 1 кг конфет. Вывести цена
For4. Дано вещественное число стоимость 1 кг конфет. Вывести стоимость 1, 2, . . . , 10 кг конфет.
For8. Даны два целых числа A и B (A lt; B). Отыскать творенье всех целых чисел от A до B включительно.
For10. Дано целое число N (gt; 0). Отыскать сумму 1 + 1/2 + 1/3 + . . . + 1/N (вещественное число).
2 ответа
Ден Сажинов
Var
A:real;
i:byte;
Begin
WriteLn('Введите стоимость 1-го кг конфет');
ReadLn(A);
For i:= 1 to 10 do
Write(A*i,' ');
End.
Пример:
Введите стоимость одного кг конфет
3.2
3.2 6.4 9.6 12.8 16 19.2 22.4 25.6 28.8 32
Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For A:= A to B do
P:=P*A;
WriteLn(P);
End.
Пример:
A = 3
B = 7
P = 2520
Var
N:integer;
S:real;
Begin
Write('N = ');
ReadLn(N);
S:=0;
For N:= 1 to N do
S:=S+1/N;
Write('S = ',S)
End.
Пример:
N = 3
S = 1.83333333333333
A:real;
i:byte;
Begin
WriteLn('Введите стоимость 1-го кг конфет');
ReadLn(A);
For i:= 1 to 10 do
Write(A*i,' ');
End.
Пример:
Введите стоимость одного кг конфет
3.2
3.2 6.4 9.6 12.8 16 19.2 22.4 25.6 28.8 32
Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For A:= A to B do
P:=P*A;
WriteLn(P);
End.
Пример:
A = 3
B = 7
P = 2520
Var
N:integer;
S:real;
Begin
Write('N = ');
ReadLn(N);
S:=0;
For N:= 1 to N do
S:=S+1/N;
Write('S = ',S)
End.
Пример:
N = 3
S = 1.83333333333333
Ирина Фильчак
Спасибо, а как оформить
Степан Малли
1.
var p:real; i:integer;
begin
write('стоимость 1 кг конфет = ');
readln(p);
for i:=1 to 10 do writeln(i,' кг - ',i*p:5:2);
end.
Пример:
цена 1 кг конфет = 125.50
1 кг - 125.50
2 кг - 251.00
3 кг - 376.50
4 кг - 502.00
5 кг - 627.50
6 кг - 753.00
7 кг - 878.50
8 кг - 1004.00
9 кг - 1129.50
10 кг - 1255.00
2.
var a,b,p,i:integer;
begin
write('a, b: ');
readln(a,b);
p:=1;
for i:=a to b do p:=p*i;
writeln('p = ',p);
end.
Пример:
a, b: 5 10
p = 151200
3.
var n,i:integer; s:real;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s:8:3);
end.
Пример:
n =5
s = 2.283
var p:real; i:integer;
begin
write('стоимость 1 кг конфет = ');
readln(p);
for i:=1 to 10 do writeln(i,' кг - ',i*p:5:2);
end.
Пример:
цена 1 кг конфет = 125.50
1 кг - 125.50
2 кг - 251.00
3 кг - 376.50
4 кг - 502.00
5 кг - 627.50
6 кг - 753.00
7 кг - 878.50
8 кг - 1004.00
9 кг - 1129.50
10 кг - 1255.00
2.
var a,b,p,i:integer;
begin
write('a, b: ');
readln(a,b);
p:=1;
for i:=a to b do p:=p*i;
writeln('p = ',p);
end.
Пример:
a, b: 5 10
p = 151200
3.
var n,i:integer; s:real;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s:8:3);
end.
Пример:
n =5
s = 2.283
Kristina Diffinje
Спасибо, а как оформить
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов