Задание 1.
В ромбе всегда прописывается условие.
Задание 2.
ЕСЛИ Х ЕСЛИ Х ИНАЧЕ M := Z \\ставится условие(я), если оно не соблюдается, то число М = числу Z\\
ВСЕ \\конец\\
ИНАЧЕ \\в другом случае (ставится другое условие:)\\
ЕСЛИ Y < Z TO M := Y \\если Y < Z , то число M = Y\\
ИНАЧЕ М := Z \\в другом случае M = Z\\
ВСЕ \\конец\\
<span>ВСЕ \\конец\\
Вывод: данный фрагмент алгоритма определяет чему равно число M при определенных условиях.
Задание 3.
Не могу приложить фото с блок-схемой.
</span>
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n,p:integer;
var s:string;
for var a:=1 to 9 do
for var b:=0 to 9 do
for var c:=0 to 9 do begin
n:=100*a+10*b+c;
s:=(n*n).ToString.Right(3);
p:=Pos(a.ToString,s);
if p>0 then begin
Delete(s,p,1);
p:=Pos(b.ToString,s);
if p>0 then begin
Delete(s,p,1);
if s=c.ToString then Write(n,'(',n*n,')',' ')
end
end
end
end.
<u>Результат</u>
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)
1:
var
x, y: real;
begin
Readln(x, y);
Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.
2:
var x,y: real;
begin
read (x, y);
if (x>=3) and (x<=5) and (y>=3) and (y<=5) then
writeln('true')
else
writeln('false');
end.
Слева Справа
Вода Кислород
Минеральные вещества Зрелый лук
Углекислый газ
Солнце
