Определить произведение первой и последней цифры числа,вводимого с клавиатуры

Знания

Информатика

1 ответ:

Алмаз5554 года назад

0 0

Var
A,p:integer;
begin
Write('Введиnе число:');
Readln(A);
p:= A mod 10;
while A > 9 do
A:=A div 10;
p:=p*A;
WriteLn(p);
Readln;
<span>end.</span>

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

Напишите процедуру которая определяет верно ли что переданное ей число - простое. (Используйте изменяемые параметры)

MrFant

Procedure prime(n: integer);
var i: integer;
begin
for i := 2 to round(sqrt(n)) do
    if n mod i = 0 then
    begin
      writeln('Число ', n, ' составное');
      exit
    end;
writeln('Число ', n, ' простое')
end;

begin
prime(3);
prime(8);
prime(23);
prime(35);
end.

Вывод:
Число 3 простое
Число 8 составное
Число 23 простое
Число 35 составное

0 0

5 лет назад

Перевести числа в десятичную систему счисления: а) А8 = 341; б) А6 = 341; в) А16 = 341; г) А5 = 34,1; д) А16 = Е41А,12. Показать

Исик

Ответ:

A). 341(8) = 3·8^2+4·8^1+1·1 = 225(10)

Б). 341(6) = 3·6^2+4·6^1+1·1 = 133(10)

В). 341(16) = 3·16^2+4·16^1+1·1 = 833(10)

Г). 34,1(5) = 3·5^1+4·1+1·5^-1 = 19,2(10)

Д). E41A,12(16) = 14·16^3+4·16^2+1·16^1+10·1+1·16^-1+2·16^-2 = 58394,0703125(10)

0 0

4 года назад

Массив из 5 элементов, ввод/вывод элементов, сумма и минимальное значение.

Михаил Миногин

begin

var a := ReadArrInteger(5); a.Println;

a.Sum.Println;

a.Min.Println;

end.

0 0

4 года назад

Определите форму мышления: Презентация-это последовательность слайдов,содержащих мультимедийные объекты. а)понятие б)суждение в)

Алексеев [6]

Правилюный ответ под буквой а)

0 0

4 года назад

Можно ли в выражении употреблять более одной пары скобок? A) можно; B) нельзя; C) только при сложении и вычитании; D) только при

Марат Ибрагимов [1]

Ответ А) Да, можно. Например: (A+B*(C-D))/E

0 0

3 года назад