Вопрос, который вызвал трудности
1) напишите программу которое вводит натуральное число"n" и находит сумму всех натуральных чисел от 1 до n (цикл пока).
2)напишите программу которое вводит натуральное число "n" и выводит первые "n" четных натуральных чисел.
3)напишите программу которая вводит натуральные числа "a и b" и выводит квадраты натуральных чисел в диапазоне от "a до b".
помогите пожалуйста , а то не понимаю)))
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так: 1) напишите программу которое вводит натуральное число"n" и находит сумму всех натуральных чисел от 1 до n (цикл пока).
2)напишите программу которое вводит натуральное число "n" и выводит первые "n" четных натуральных чисел.
3)напишите программу которая вводит натуральные числа "a и b" и выводит квадраты натуральных чисел в диапазоне от "a до b".
помогите пожалуйста , а то не понимаю)))
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
1.
Var
a,n:integer;
Begin
write('Введите число n ');
Readln(n);
while a<=n do<br> Begin
write(a,' ');
a:=a+1;
End;
End.
2.
Var
a,n,d:integer;
Begin
d:=2;
write('Введите число n ');
Readln(n);
while a Begin
write(d,' ');
d:=d+2;
a:=a+1;
End;
End.
3.
Var
a,b:integer;
Begin
write('Введите числа a и b: ');
Readln(a,b);
while a<=b do<br> Begin
writeln(a,'^2 = ',sqr(a),' ');
a:=a+1;
End;
End.