Var
i,n:integer;
begin
write('Write n: '); readln(n);
for i:=10 to 99 do
if (i mod n=0) or ((i div 10=n) or (i mod 10=n))
then writeln(i,' ');
readln
end.
Упрощенно исполнителя можно представить себе как некоторое устройство управления соединенное с набором инструментов.
Procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
Вот пример всем программыprogram znanijatop;const null = 0;
procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
var n:integer;
begin
writeln('vvedite n');
readln(n);
s(n,null);
end.
X+y+z = 48
1 шаг: 1: x-y; 2: y+y
2 шаг: 1: x-y; 2: y+y-z; 3: z+z
3 шаг: 1: (x-y)+(x-y); 2: y+y-z; 3: z+z-(x-y)
2*(x-y) = 16; 2*y-z = 16; 2*z-(x-y) = 16
x-y = 8
2*z-8 = 16, z = 12
2*y-12 = 16, y = 14
x-14 = 8, x = 22
Ответ: 22 14 12
Ответ: если не ошибаюсь, 42
Объяснение:
У тебя дан цикл вайл с условием пока s не включая 75 делать.
То есть когда значение s будет 70, цикл завершается. Можем посчитать, что когда s будет 10, n станет 6. Получается нам нужно 7*6 = 42.
Но я не гарантирую сто процентов правильно, я не прогал на паскале много лет) Вот был бы c++ или какой-либо другой язык - было бы поинтереснее)
Для проверки можешь в онлайн компилятор вогнать прогу, тебе выдаст ответ. Но логику я пытался объяснить, она не сложная