Напишите программу для умножения чисел 8*5=40

Знания

Информатика

1 ответ:

volk264 года назад

0 0

Var x,b,c,i :integer;
begin
c:=0;
writeln ('Введите первое число');
readln (x);
writeln ('Введите второе число');
readln (b);
if (x=8) and (b=5) then
c:=x*b;
writeln ('=',c);
end.

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

Сколько времени потребуется для передачи с объемом 3072 КБайта, если скорость передачи 4 Мбит/с? С решением.

RadionTikhov777

4 МБит/c = 4 * 1024 = 4096 КБит/с

4096 КБит/с = 4096 / 8 = 512 КБайт/c

3072 / 512 = 6 секунд

0 0

4 года назад

Найти max{min{a, b}, min{c, d}}. Напишите пожалуйста программу в VBA

aksha [492]

Sub M1()
MsgBox (Application.Max( _
Application.Min(InputBox("Введите a"), _
InputBox("Введите b")), _
Application.Min(InputBox("Введите c"), _
InputBox("Введите d")) _
))

End Sub

0 0

4 года назад

Пользователь вводит два числа. Найдите сумму и произведение данных чисел.

musthave [197]

var a,b,c,d;integer;

begin

readln(a,b);

c:=a+b;

d:=a*b;

writeln('сумма',c);

writeln('произведение',d);

end.

это для паскаля

0 0

4 года назад

Какое из чисел в последовательности 2, 5, 7, 10, 13 — лишнее?

Андрей198807

10. Так как все остальные числа простые, а это составное

0 0

4 года назад

Переведите из линейной записи в общепринятую: а) a * b / c г) (a+b) / c б) a / b * c д) a+b / c+d в) a+b / c е) (a+b) / (c+d)

feniks3501

А) a * b / c = $\frac{ab}{c}$
б) a / b * c = $\frac{ac}{b}$
в) a+b / c = $a+ \frac{b}{c}$
г) (a+b) / c = $\frac{a+b}{c}$
д) a+b / c+d = $a+ \frac{b}{c} +d$
е) (a+b) / (c+d) = $\frac{a+b}{c+d}$

0 0

4 года назад