4 года назад

Дано трёхзначное число х.Найдите произвидения 1 и 3 цифр этого числа.

Знания

Информатика

1 ответ:

radiosimha4 года назад

0 0

Program n1;
var n: integer;
begin
readln(n);
write((n mod 10)*(n div 100));
end.

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

Выполните сложение двоичных чисел 110011+1111

Светлана Голуб

110011+1111 = 1000010
--------------------------------------
Ответ: 1000010

0 0

3 года назад

90 баллов Напишите программу для определения имеет ли женщина идеальный вес. Значения роста и фактического веса вводится с клави

EeOneGuy123456789

program MassaProg;

uses crt;

var factmassa, heigth: integer;

var massa: real;

begin

writeln('Vvedite rost v santimetrah: ');

readln(heigth);

writeln('Vvedite ves: ');

readln(factmassa);

massa:=heigth-100-0.1*(170-100);

if massa = factmassa

then writeln('Vash ves idealnii') else writeln('Vash ves ne idealnii');

end.

0 0

3 года назад

1. Какие из перечисленных ниже характеристик относятся к оперативной, а какие – к внешней памяти?а) Является энергозависимой.б)

dimon120593

1)
operativnaya pamiati:

0 0

4 года назад

Вывести на экран число от 1 до 5в. а) прямом порядке b) обратном порядке

primer [22.9K]

1)
var a:integer;
begin
for a:=1 to 5 do
write(a,' ');
end.
2)
var a:integer;
begin
for a:=5 downto 1 do
write(a,' ');
end.

0 0

3 года назад

ПОМОГИТЕ ПЕРЕВЕСТИ НА ПИТОН! var a,b,x,y,z:integer;// Генерирование примитивных триад, b - const begin write('введите b ='); rea

Vasiiaa

B = int(input("b = "))
for a in range(b+1, 501, 2):
x = a*a-b*b
y = 2*a*b
z = a*a+b*b
print('(%d; %d; %d); (a=%d; b=%d); (%.4f; %.4f)' % (x,y,z,a,b,x/z,y/z))

Пример:
b = 10
(21; 220; 221); (a=11; b=10); (0.0950; 0.9955)
(69; 260; 269); (a=13; b=10); (0.2565; 0.9665)
(125; 300; 325); (a=15; b=10); (0.3846; 0.9231)
...
(246909; 9940; 247109); (a=497; b=10); (0.9992; 0.0402)
(248901; 9980; 249101); (a=499; b=10); (0.9992; 0.0401)

0 0

2 года назад