1. измените программу из 2 таким образом, чтобы, при необходимости, можно отказаться от выполнения теста и корректно выйти из программы (используйте оператор while..do). записать программу под именем p5pr3 2. вычислить сумму натуральных четных чисел, не превышающих n. программу составьте двумя способами: используя цикл с предусловием и цикл с постусловием. сохранить программу под именем p5pr4 и p5pr5

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.

б< т

к< л

с< е

липа ниже березы

к< л< б< т

сосна выше тополя

к< л< б< т< с< е

самое высокое ель

самое низкое клен

1) program imja_program

2) var imja_peremennoj: tip_peremennoj

3)integer,byte,real,long, short и еще какие-то но вряд ли будешь их использовать

более подробно смотри в википедии

если прямые не пересекаются, то они или скрещиваются или паралельные

неверно, что на ноль делить нельзя, делить можно, только результатом будет или бесконечность или неопределенность

неверно, что две неодинаковые прямые могут иметь две общие точки

неверно, что ответ может быть правильным или неправильным. в любом ответе есть доля истины и доля лжи