Ввести переменные A, B, C (целые числа), если A>B, то C=A-B, если A вывести C

Знания

Информатика

1 ответ:

banzaycs4 года назад

0 0

var A, B, C: integer;

begin

readln(A, B, C);

if (A>B) then

C:=A-B

else

writeln(C);

end.

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

Помогите решить информатику.

Ксениярус [7]

Ответ:Av(AvB)aB-++=-=100

Объяснение:это отличный ответ)))))

0 0

3 года назад

Вычислите значения функция (в паскале) z=x(вкубе)-2,5ху+1,78х(квадрат) -12,5у+1

sputnik [7]

var x,y,z:real;

begin

readln(x,y);

z:=x*x*x-2.5*x*y+1.78*x*x-12.5*y+1;

writeln(z);

end.

0 0

4 года назад

Помогите, пожалуйста! Использовать mod и div. Через ПАСКАЛЬ!!! Написать программу, которая определяет, сколько раз буква "а" вс

DRDESE [92]

Var a: String;
sum,i: Integer;
begin
sum:=0;
writeln('Введите текст');
readln(a);
for i:=1 to Length(a) do
begin
if a[i]='а' then sum:=sum+1;
end;
writeln('Буква а встречается: ',sum,' раз(а)');
end.

0 0

4 года назад

Средства ввода вывода звуковой информации

Akimura

Средства вывода: наушники, встроенный динамик, колонки.
Средство ввода: микрофон.

0 0

4 года назад

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

Задание № 4. Десятичное число 1110 в двоичной системе счисления запишется как …

StarSU

11(10) = ? (2)
11 5 2 1 Каждое предыдущее делим на 2 Если делится без остатка, то в нижней
1 1 0 1 строчке записываем 0, если с остатком - то 1. Полученный
<--------------------- результат записываем справа налево.

Итак, получили: 11(10) = 1011 (2)

0 0

4 года назад