Пожалуйста,срочно информатика 10 класс самостоятельная
Пожалуйста,срочно информатика 10 класс самостоятельная
Гость
Ответ(ы) на вопрос:
ГостьЗадание 3: это программа позволяет найти сумму вводимых чисел:
var n,s : integer;
begin
readln(n);
if n <> 0 then
begin
s:=s+n;
readln(n);
end
else writeln(s);
readln;
end.
Задача 2:
Program Multy;
var i, n, x, mt:integer;
begin
write('введите целое число X ');
readln(x);
write('введите степень N ');
readln(n);
mt:=x;
for i:=1 to (n-1) do
begin
mt:=mt*x;
end;
writeln(x,' в степени ',n,' равно ',mt);
end.
Не нашли ответ?
Похожие вопросы