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;
Ответ: 7
Нy и мне нyжно написать 20 символов
Ответ:
алг
нач
цел а,б
б:=0
ввод а
нц пока а > 0
если mod (а,10) = div (mod (а,100),10) то
б:=б+1
вывод "Да"
выход
всё
а:=div (а,10)
кц
если б=0 то вывод "Нет" все
кон
В 1832 году ..............
Природная:болото,вулкан,степь
Техническая:Самолет
Смешанная:библиотека,оркестр
Думаю,что так