Pascal ABC

+ 0 -

Daniela2

04 окт. 2013 г., 21:53:30 (10 лет назад)

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.

+ 0 -

доврга

05 окт. 2013 г., 0:06:49 (10 лет назад)

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

+ 0 -

7клааасс

05 окт. 2013 г., 2:28:58 (10 лет назад)

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

+ 0 -

Bikini1

05 окт. 2013 г., 4:03:53 (10 лет назад)

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