Правое верхнее - 8
правое нижнее - 19
слева обе картинки одинаковые, но не видно значения Dat[10]
если оно меньше или равно 12 то ответ для этих заданий 6, если строго больше 12 то ответ 7
Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>
Ответ:
var t1,t2:text; c:char; f:boolean;
begin
assign(t1,'INPUT.TXT');
reset(t1);
assign(t2,'OUTPUT.TXT');
rewrite(t2);
f:=true;
while not eof(t1) and f do
begin
read(t1,c);
f:=f and (c='1');
end;
if f then writeln(t2,'YES')
else writeln(t2,'NO');
close(t1);
close(t2);
end.
Var a:array[0..100] of integer;
<span>i,n:integer; </span>
<span>begin </span>
<span>read(n); </span>
<span>for i:=0 to n-1 do begin read(a[i]); </span>
<span>if i mod 2=0 then a[i]:=1 else </span>
<span>a[i]:=i mod 5; </span>
<span>end; </span>
<span>for i:=0 to n-1 do write(a[i],' '); </span>
<span>end.</span>