var
a: integer;
begin
readln(a);
if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число')
else writeln('периметр не двузначное число');
end.
Ответ: если не ошибаюсь, 42
Объяснение:
У тебя дан цикл вайл с условием пока s не включая 75 делать.
То есть когда значение s будет 70, цикл завершается. Можем посчитать, что когда s будет 10, n станет 6. Получается нам нужно 7*6 = 42.
Но я не гарантирую сто процентов правильно, я не прогал на паскале много лет) Вот был бы c++ или какой-либо другой язык - было бы поинтереснее)
Для проверки можешь в онлайн компилятор вогнать прогу, тебе выдаст ответ. Но логику я пытался объяснить, она не сложная
///////////////////////////////////
var
arr: array [1..100]of integer;
i, size: integer;
begin
writeln('Введите размерность последовательности: ');
readln(size);
for i := 1 to size do
readln(arr[i]);
i := 1;
repeat
writeln(arr[i], ' ');
inc(i);
until arr[i] = 0;
writeln(0);
end.
program vozrast;
var
o,s:real;
begin
writeln('Введите сколько лет Отцу');
readln(o);
if O>28 then
begin
S:=O-28;
writeln ('Сыну ',s,' лет');
end
else
writeln('Ошибка');
end.