4 лабы по циклам.

[wolf950]

Помогите пожалуйста решить 4 лабы... Учусь на заочном, нефига не помню уже. ДА и программированию не особо учат, да и я сам не вундеркинд.
Помогите, кто может.

[Poma][a]

язык какой?
вот на паскале № 3

begin
          ReadLn (n);
          n := n*2;

          Str (n,s);
          
          r := Pos ('3',s);
          if r <> 0 then
                   WriteLn ('YES')
          else
                   WriteLn ('NO')
end.

№4

begin
	ReadLn (n);
	S := 0;
	while n > 0 do
	begin
		S := S + n mod 10;
		n := n div 10;
	end;
	WriteLn (S)
end.