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;
Произведения художественной литературы не является моделями
Просто введи код в язык программирования Poscal - тебе и выдаст ответ.
Ну в данном случае S=31.
1) Ярлык
2) Элементы управления
3) Представление
С тебя спасибка!
#include <iostream>
int main(){
int height, above140 = 0, middle = 0;
const int num = 20;
for (int i = 0; i < num; i ++){
std::cout << "height is ";
std::cin >> height;
middle += height;
if (height > 140) above140 ++;
}
middle /= num;
std::cout << "middle height is " << middle << "\nabove 1m 40sm is " <<
above140 << "\n";
}