сделайте 2 задачки . с циклами:предусловие,и постусловие

Сделайте 2 задачи . с циклами:предусловие,и постусловие

Задать свой вопрос
Степка Новопрудский
Язык
Бахныкина Элина
Язык?*
Дряпикова Людмила
pascal
Злата Тачнева
Ок
Будянова Яна
во втором
Агата Торцова
не считая 1 и 45 оно делится т.д. непременно?
Валтухова Людмила
угусь
Тетяшкин Максим
2 пока не пиши
Николай Занавескин
Если ниче превосходнее не придумаю
Ruslan Volkovinskij
ok
1 ответ

Ответ:

1)var

chislo,max:integer ;

begin  

Writeln('Введите числа');  

max:=0;  

Read(chislo);

while chislo lt;gt; 0 do  

begin  

If(chislogt;max) then

max:=chislo;  

Read(chislo);

end;

Writeln('Величайшие число из веденных является ',max);  

end.

2)

var  

chislo,di,k:integer;  

begin  

Writeln('Введите число');Readln(chislo);

for di:= 1 to chislo do  

begin

if((chislo mod di) = 0 ) then  

begin  

Writeln('Число делится на ',di);

k:=k+1;

end;  

end;  

if(kgt;2) then

Writeln('Число',chislo,' не обычное');

if(k=2) then  

Writeln('Число ',chislo,' обычное');

end.

Разъяснение:

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт