кто нибудь помогите срочно умоляю!!!!! 1) используя цикл с предусловием найдите количество цифр целого введенного с клавиатуры и выведите

найти фальшивую монету? Сложить блок-схему.

a,b,c,x1,x2);

var

D:real

bedin

D:=b*b-4*a*c;

if D<0 then writeln('корней нет')

else D=0 then x:=-b/(2+a)

else

begin

x1:=-b-sqrt(D)/2a;

x2:=-b+sqrt(D)/2a;

end;

end;

begin

readln(a1,b1,c1,t1,t2);

ur(f1,b1,c1,t1,t2);

1) дисковод 2)папка 3)файл
4)каталог

Потом такую же только цикл с предусловием, и еще одну цикл с постусловием

паскале

кто еще знает такую задачу помогите кому не сложно)
Программа которая будет определять нечетное количество цифр, содержащихся в тексте

Использовать цикл с предусловием.
На обычном паскале, не турбо.