Москва - столица России (истинное)
Париж - столица Германии (ложное)
5>3 истинное, -5>-3 ложное
16=16 истинное, 16≠16 ложное
17 - нечетное число (истинное), 25 - четное число (ложное)
16=2^4 =>4 бит на пиксель
320*320*4=409600 бит=51200 байт=50 кбайт
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.Button1Click(Sender: TObject);
var
k,i,j:integer;
begin
k:=10;
for i:=1 to 90 do begin
if (k mod 7)=0 then begin
j:=j+1;
stringgrid1.cells[1,i]:=inttostr(k);
end;
k:=k+1;
end;
label1.Caption:=inttostr(j);
end;
var prod,i:integer;
begin
prod:=1;
for i:=10 to 99 do
if(i mod 15=0) then prod:=prod*i;
writeln(prod)
end.
Vara,k,s,b:integer;Begins:=1;b:=0;for k:=1 to 20 dobeginreadln(a);if (a div 1000 <10) and (a div 1000 >0) and (a mod 10 = 3) thenb:=b+1;if (a mod 4 = 0) thens:=s*a;end;writeln('Произведение чисел, кратных четырем - ',s);writeln('Количество четырехзначных чисел, оканчивающихся на три - ',b);end.