Показать сообщение отдельно
Старый 23.12.2010, 17:06   #6 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Следующий вариант 2 задание 7:
Код:
program 2z3;
const
m=1;
i:=1;
var
k,n,m,i:real;
begin 
readln (n);
readln (k);
if i<=n then begin m:=m*k;
i:=i+1
else writeln ('m='m);
readln 
end.
shrek=) вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070