Задачи для самостоятельного решения Задача 1. Дано целое число А. Найти сумму 5 чисел А (используя цикл for). Задача 2. Даны два целых числа А и N. Найти сумму N чисел А (операцию умножения не использовать). Задача 3. Даны два ...
Задачи для самостоятельного решения
Задача
1. Дано целое число А. Найти сумму 5 чисел А (используя цикл for).
Задача
2. Даны два целых числа А и N. Найти сумму N чисел А (операцию умножения не использовать).
Задача
3. Даны два числа вещественное А и целое N. Найти сумму N чисел А (операцию умножения не использовать).
Задача
4. Дано целое число N. Напечатать N раз слово «Информатика» через пробел
Задача
5.Даны два целых числа A и N. Используя цикл возвести число А в степень N.
Гость
Ответ(ы) на вопрос:
Гость1)
var
a,i:integer;
s:real;
begin
readln(a);
for i:=1 to 5 do
s:=s+a;
writeln(s:4:0);
end.
2)
var
a,n,i:integer;
s:real;
begin
readln(a,n);
for i:= 1 to n do
s:=s+a;
writeln(s:4:0);
end.
3)
var
n,i:integer;
a,s:real;
begin
readln(a,n);
for i:= 1 to n do
s:=s+a;
writeln(s:4:2);
end.
4)
const
a='ИНФОРМАТИКА';
var
i,n:integer;
begin
readln(n);
for i:=1 to n do
write(a,' ');
end.
5)
vari,n,a:integer;
p:real;
begin
readln(a,n);
p:=1;
for i:=1 to n do
p:=p*a;
writeln(p);
end.
Не нашли ответ?
Похожие вопросы