Информатика: 1) запросить натуральное число и используя while вывести квадраты всех...

Question

Информатика: 1) запросить натуральное число и используя while вывести квадраты всех натуральных чисел от 1 до n. 2)запросить натуральные числа и выяснить количество единиц а этом числе. (цикл while)
Помогите пожалуйста!)))

Answer 1

Задача №1

var n,x:integer; 
begin 
x:=1; 
writeln('Введите натуральное число'); 
read(n); 
while x<>n do begin 
write(sqr(x), ' '); 
x:=x+1; 
end; 
write(sqr(n)); 
end.

Задача №2
var x,k:integer; 
begin 
k:=0; 
writeln('Введите число'); 
read(x); 
while x>0 do begin 
if x mod 10=1 then k:=k+1; 
x:=x div 10; 
end; 
writeln('Количество едениц в числе = ',k); 
end.

Comments

спасибо огромное!!!))))