4 года назад

Написать программу в VBA, сравнивающую два числа, вводимые с клавиатуры.

1 ответ:

Рузана19894 года назад

0 0

Sub car()
Dim s1, s2 As Double
s1 = CDbl(InputBox("Введи первое число", "Ввод данных", 88))
s2 = CDbl(InputBox("Введи второе число", "Ввод данных", 46))
If s1 > s2 Then MsgBox (CStr(s1) + ">" + CStr(s2)) Else MsgBox (CStr(s1) + "<" + CStr(s2))
End Sub

Читайте также

пользователь работал с каталогом Сначала он поднялся на три уровня вверх потом спустился в каталог экзамен и после этого спустил

Илюха [4]

Поднялся значит приблизился к жесткому диску, следовательно когда опустился он отдаляется от него, самый грубый пример.
Так и не понял название первичного каталога.
Дай полный путь тогда аи ответ полный дам, а пока так ...\Экзамен\Информатика.

0 0

3 года назад

Ребят срочно надо решить по информатике)буду благодарен

Elena Marty [126]

4 записей удовлетворяют данному условию

0 0

4 года назад

Написать программу , которая вычисляет среднюю температуру воздуха за всю неделю. Выясните, сколько раз в неделю температура был

Avanik

Program Temperatura;

Var d, k, T: integer; f: byte; a: array [1..7] of integer;

Begin f := 0;k := 0;

Writeln('Введите температуру');
for d := 1 to 7 do Begin
Write(d, ' день: ');
Readln(a[d]);
end;

for d := 1 to 7 do if a[d] > 0 then
Begin
k := k + 1;
f := 1;
end;

if f = 0 then Writeln('Всю неделю температура была ниже нуля.')
else
Writeln('Дни с температурой выше нуля - ', k);

T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7];
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.

0 0

4 года назад

Дано целое число A, значение которого вводится с клавиатуры. Написать программу, которая выводит на экран true , если A не кратн

СЕвгений

Var a:integer;
begin
readln(a);
if ((a mod 3 <>0) and (a mod 10 = 0) and (a div 10>0)) or (a=0) then
writeln ('true')
else writeln ('false');
<span>end.</span>

0 0

4 года назад

Ваш новый знакомый в социальной сети попросил срочно сообщить ему ваш номер телефона и домашний адрес. Что делать?

solvy [77]

Ответ:

Спросить

Объяснение:

Спросить зачем ему адрес и номер

0 0

4 года назад

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