PASKAL1) Написать программку с циклом. Дана переменная "n", написать программку где все

PASKAL
1) Написать программку с циклом.
Дана переменная "n", написать программку где все значения "n" будут суммироваться пока n не будет одинаково 1
2) Написать программку с циклом.
Дана переменная e, необходимо выводить "e" в квадрат до тех пор пока "e" не будет равно 100
--------------
program test;
var..
begin

Задать свой вопрос
1 ответ
Var
    i, n, s: integer;

begin
    read(n);
    for i := n downto 1 do
        s := s + i;
    writeln(s);
end.

2)
var
    i, e: integer;

begin
    write('e = ');
    readln(e);
   
    if e gt; 100 then
        for i := e downto 100 do
            writeln(i * i)
    else
        for i := e to 100 do
            writeln(i * i);
end.


Еленина Анастасия
не увидела что там есть вывод, да каак раз им и пользуюсь, но в середине ничего не обьявляю
Егор Грабосинский
окончательно неловко, если скажем переменная нужна только в цикле, а обьявлять ее приходится на большее место, это не верно как по мне
Daniil Kadarija
так сколько ж блин этих функции будет да и зачем?
Jana Sirnova
поняла что локальные надобно обьявлять
Лялькова Ника
и для тебя)))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт