Помогите поставить ограничение на ввод,чтобы программа не выскакивала сама по себе при вводе больших чисел

@ТатьянаК · Регистрация: 26.10.2009

Author24 — интернет-сервис помощи студентам

Помогите поставить ограничение на ввод,чтобы программа не выскакивала сама по
себе при вводе больших чисел,а выводила некоректный ввод данных!

Имеется n бактерий красного цвета. Через 1 такт времени красная бактерия
меняется на зелёную, затем через 1 такт времени делится на красную и зелёную.
Сколько будет всех бактерий через k тактов времени?

Pascal

Program for_11; 
uses crt; 
var i,k,n,z,nz,nk:longint; 
begin 
clrscr; 
write('кол-во бактерий:');readln(n); 
write('кол-во тактов времени:');readln(k); 
z:=0; 
for i:=1 to k do 
begin 
nz:=0; 
nk:=0; 
nz:=nz+z; 
nk:=nk+z; 
nz:=nz+n; 
n:=nk; 
z:=nz; 
end; 
n:=z+n; 
writeln('Число бактерий=',n); 
readln; 
end.

magirus · 27.04.2011, 22:29

Комментарий модератора

Вы уже давно на форуме, научитесь наконец называть темы более-менее информативно, и пользоваться тегами форматирования.

Опции темы