Var x, y, z:real;
begin
x:= StrToFloat(Edit1.Text);
y:= StrToFloat(Edit2.Text);
if ComboBox1.Text='Додавання' Then z:=x+y;
if ComboBox1.Text='Віднімання' Then z:=x-y;
if (ComboBox1.Text='Ділення')and(y<>0) Then z:=x/y;
if (ComboBox1.Text='Ділення')and(y=0)
Then ShowMessage ='Вираз значень не має'
else Label2.Caption:=FloatToStr(z);
end;

0 0

4 года назад

Скорость передачи данных по локальной сети 37 Mбит в секунду. Ученик скачал игру за 58 минут. Каков объём скачанной информации в

Сергей7733

Скорость передачи данных по локальной сети 37 Mбит в секунду. Ученик скачал игру за 58 минут. Каков объём скачанной информации в Кбайтах?

0 0

4 года назад

Прочитать ещё 2 ответа

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6 и оканчивающихся на 8. Прог

ксения нурулина [7]

Var
    i, n, s, x: integer;

begin
    readln(n);

    s := 0;
    for i := 1 to n do
    begin
        readln(x);
        if (x mod 10 = 8) and (x mod 6 = 0) then
            s := s + x;
    end;

    writeln('S = ', s);
end.

0 0

4 года назад