Напишите программу, которая определит по введенному двузначному числу цифру десятков и цифру единиц

Знания

Информатика

1 ответ:

Sweet Sister [5.8K]4 года назад

0 0

var a:integer;

begin

readln (a);

writeln('Цифра десятков: ',abs(a) div 10);

writeln('Цифра единиц: ',abs(a) mod 10);

end.

Пример:

Цифра десятков: 2

Цифра единиц: 5

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

В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке: Ка

kira12345emelyanova

В предложении 51 символ считая с пробелами

51*16=816 бит

ответ 1) 816 бит

0 0

4 года назад

Полный путь к файлу имеет вид С:\BOOK\name_may_1.ppt. Расширение этого файла:

Allexter

Ppt-расширение файла

0 0

4 года назад

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

Какой набор чисел удовлетворяет следующему условию(х<5) и не ((х≤2)) или (х>9)?

Arsen1992

$(x < 5) \wedge \neg{((x \leq 2)\vee(x>9))} = \\
(x < 5) \wedge \neg(x \leq 2)\wedge\neg(x>9) = \\
(x < 5) \wedge (x > 2)\wedge (x \leq 9)$
т.е. числа из интервала (2, 5), если целые то это 3 и 4

0 0

4 года назад

Укажите наиболее полный ответ. Каталог – это …?

дэнчикк

<span>Составленный в определённом порядке перечень каких-н. однородных предметов (книг, экспонатов, товаров и т. п.).</span>

0 0

3 года назад

Составить программу для вычисления значения z=x^3+x(y+v)-корень 0.25(y+v)

Денис 750 [11]

Program qq;
var z,x,y,v:real;
begin
z:=x*x*x+(y+v)-sqrt(0.25*(y+v));
write('Значение z=',z:6:2);
<span>end.
если надо с вводом значений x,y,v тогда вот так

</span>program qq;
var z,x,y,v:real;
begin
write('Введите значение x');
readln(x);
write('Введите значение y');
readln(y);
write('Введите значение v');
readln(v);
z:=x*x*x+(y+v)-sqrt(0.25*(y+v));
write('Значение z=',z:6:2);
end.

0 0

4 года назад