1)а
2)b
3)a
4)b
5)a
6)b
7)b
8)a
9)b
10)b
11)b
12)b
13)b
14)c
15)c
16)c
17)a
18)c
19)b
20)3*(А1+В1)/(5*(2*В1-3*А2))
21)b
22)c
23)b
24)с
25)=B7*V7
26)a
27)c
28)c
29)b
30)b
Кнопка, окно, меню, строка состояния, вкладка, ползунок, поле для редактирования
Программа считывает число А.
Язык программирования: Паскаль.
var
A : integer;
begin
readln (A);
writeln ('в', (1200 - A) / A, 'раз');
end.
Не совсем понял смысл, но вот:
procedure TForm1.Button1Click(Sender: TObject);
var
i, s: integer;
begin
for i := 0 to (StrToInt(Edit1.Text) - 1) do
begin
if (s > StrToInt(Edit2.Text)) then break;
s := s + StrToInt(Memo1.Lines[i]);
end;
Memo2.Text := IntToStr(s);
end;
Эта штука суммирует числа из Memo1 (числа в строках), пока количество суммируемых не превысит N, либо их сумма не превысит M, либо числа не кончатся
3 человека муж жена и его младший брат