сделайте 2 задачки . с циклами:предусловие,и постусловие
Сделайте 2 задачи . с циклами:предусловие,и постусловие
Задать свой вопросОтвет:
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.
Разъяснение:
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.