Нужно только загрузить в Фотошоп и сделать векторизацию!
Канада, Бразилия, Япония - это страны.
Ответ:
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.
1. Var a, b, c:real; d:integer;
Begin
Readln(a, b) ;
S:=a*b;
Write(s) ;
End.
2.
Var a, b, c:real; d:integer;
Begin
D:=0;
Readln(a);
If (a>0) then d:=d+1;
Readln(b) ;
If (b>0) then d:=d+1;
Readln(c>0) then d:=d+1;
Write(d);
End.
1) 8 Кбайт = 8 * 1024 байт = 8 192 байт
8 192 > 8 150
Ответ: 8 Кбайт
2) 2.5 Кбайт = 2.5 * 1024 = 2560 байт
2560 байт * 1024 = 2 621 440 бит
Ответ: 2560 байт или 2 621 440 бит