Pascal ABC Решить три задачи...

Question

Pascal ABC
Решить три задачи .............................................................................................
............................................................................................................................
( в файле )

---

Скачать вложение Word (DOC)

Comments

Почему-то сначала не закинулся

Answer 1

Program ZZZ;
var z,s:integer;
begin
writeln('введите число < 65000');
readln(z);
s:=0;
while z>0 do
begin
z:=z div 10;
s:=s+1;
end;
writeln (s,'-значное число');
end.


2 и 3 задачи в одной

program ZZZ;
var i,z,s:integer;
begin 
writeln('введите число < 65000');
readln(z);
s:=0;
write ('делители введенного числа: ');
for i:=1 to 65000 do
begin
if z mod i =0 then
begin write (i,',  ');s:=s+1; end;
end;
writeln;
if s=2 then writeln ('введенное число - простое') ;
end.