Pascal abcнапишите программу, которая определяет правильность записи целого числа в восьмеричной системе счисления. формат входных данных на вход программы поступает символьная строка. формат выходных данных программа должна вывести ответ 'yes', если строка представляет собой правильную запись целого числа в восьмеричной системе счисления, и 'no', если запись ошибочна.

Var value, error: integer;
begin
var s:=readstring ('Введите строку: ');
val (s, value, error);
if (error<>0) or ('9' in s) or ('8' in s) then write ('NO') else write ('YES');
end.

Проанализируем последовательно утверждения.

Таблицу прилагаю

1. Если верно первое утверждение, то остальные

— неверны. Тогда получается, что две девушки

(Маша и Наташа) не празднуют день рождения

весной (из утверждений 2 и 4), т.е. обе празднуют

его осенью, что противоречит условию задачи.

2. Предположим, что верно утверждение 2

(У Маши день рождения весной, а у Кати -

осенью). В этом случае получается противоречие

в отношении времени рождения Вали: не зимой

(утверждений 1) и не летом (утверждений 3).

А осенью и весной родились Катя и Наташа

(утверждение 2).

3. Предположим, что верно утверждение 3 (У Вали день рождения летом, а у Наташи - весной). Тогда из утверждения 2 получаем: Маша родилась осенью, а Катя - зимой. Это не противоречит утверждению 1. Таким образом, получаем следующее распределение: Маша — родилась осенью, Катя — зима, Валя — летом, Наташа - весной.

Объяснение:

1)

program t1;
var
a: array[1..6] of integer;
i, m, mi: integer;
begin
writeln('ввод массива');
for i := 1 to 6 do
readln(a[i]);
mi := 1;
m := a[mi];
for i := 2 to 6 do
if a[i] < m then
begin
mi := i;
m := a[mi];
end;
writeln('минимум: ', m, ' (a[', mi, '])');
end.

2) предполагая, что 'коробочка' - это корень

program t2;
const
F = -8;
T = 6;
S = 2;
var
i: real;
function GetY(x: real): real;
begin
if (x > -3) and (x <= 3) then
GetY := sqrt(x)
else
GetY := 1 / (x * x);
end;
begin
writeln('промежуток [', F, '; ', T, '], шаг ', S, ':');
i := F;
while i <= T do
begin
writeln('y(', i, ') = ', GetY(i));
i := i + S;
end;
end.