Program raznost;
var a,b,c,r: integer;
begin
writeln ('Введите трехзначное число');
readln (a);
b:=a div 100;
c:=a mod 10;
if b>c then r:=b-c
else
if b<c then r:=c-b;
writeln ('Разность крайних цифр равна ',r);
end.

0 0

4 года назад

Напишите программу для вывода на экран 10 целых, случайных чисел в интервале [50,150). Обратите внимание на скобки!

Momo

Var i: byte;
begin
randomize;
for i := 1 to 10 do
writeln(random(100)+50);
end.

0 0

4 года назад

Переведите число 156 из десятичной системы счисления в двоичную систему счисления. Сколько единиц содержит полу

aalexbar

156/2=78 (0)
78/2=39 (0)
39/2=19 (1)
19/2=9 (1)
9/2=4 (1)
4/2=2 (0)
2/2=1 (0)
1/2=0 (1)
Остатки от деления записываем в обратном порядке.Получаем: 10011100
156=10011100 (2)
Ответ: 4.
Развёрнутый ответ (решение) на всякий случай :)

0 0

4 года назад

Найдите ошибки в следующих программах: Program int_r; Var a,x:integer; b,c:real; Begin a:=10; b:=5.2; x:=b div 2; c:=round(x); E

Стас 228 Гроздов

1.Переменная c не real а integer;
2.Переменная d не real а integer.

0 0

4 года назад