Program Pr1;
uses crt;
var fl1,fl2:text;
i,n,v,a,b:integer;
Begin
clrscr;
assign(fl1,'input.txt');
assign(fl2,'output.txt');
reset(fl1);
readln(fl1,n);
v:=0;
for i:=1 to 1000000 do begin
if i>=10 then begin
a:=i div 10;
b:=i mod 10;
if (a mod 2<>0) and (b mod 2<>0) then v:=v+1;
end
else if i mod 2<>0 then v:=v+1;
if v=n then break;
end;
rewrite(fl2);
writeln(fl2,v);
close(fl1);
close(fl2);
end.
Все работает я проверил
Сначало мы наливаем воду в чайник,или в кастрюлю.Потом мы даём
нагреться воде,при этом вода нагреваеться при взаимодействием с кипением.Вода нагрелась мы берём пакетик чая,и кладём в чашку.
В конце нам надо налить кипячёную воду в чашку.
Ресурсы человеческого мозга рассчитаны на переработку информации в 16 бит
Ответ 4
(х+у) →отриц z. Подставим
(0+1)→1=1 верно
(1+0)→0=0 верно
(1+0)→1=1 (верно)
!!!!! это не в ответ, а для общего разумения :в импликации только 1→0=0
1)
Var i : Byte;
Begin
For i:=Ord('a') to Ord('z') do Writeln(Chr(i),' ',i);
end.
2)
Var i : Byte;
Begin
i:=Ord('a');
While i<=Ord('z') do
Begin
Writeln(Chr(i),' ',i);
Inc(i);
end;
end.
3)
Var i : Byte;
Begin
i:=Ord('a');
Repeat
Writeln(Chr(i),' ',i);
Inc(i);
Until i>Ord('z');
end.