Нужно решить 4 задание. Текст для программы Паскаль.
5-9 класс
|
var
a:real;
b:integer;
begin
write('Введите дробное число: ');
readln(a);
a:=Frac(a);
a:=a*100;
a:=Int(a);
b:=Round(a);
writeln(b div 10 + b mod 10);
end.
Другие вопросы из категории
Помогите мне пожалуйста, по информатике 9 класс:
1) Перевести число 57 (с индексом 10) в двоичную, восьмеричную, шестнадцатеричную систему счисления. (решение подробно, пожалуйста).
2) Перевести число 1110011100111 (с индексом 2) в десятичную систему счисления. (решение подробно, пожалуйста).
3) Перевести число 367 (с индексом 8) в десятичную систему счисления. (решение подробно, пожалуйста).
4) Перевести число DF16 в десятичную систему счисления. (решение подробно, пожалуйста).
5) Перевести число 57 (с индексом 8) в шестнадцатеричную систему счисления. (решение подробно, пожалуйста).
Читайте также
read.writeln.else.to.if и тд которые сможете
Вот пример идеи для программы, в академию поступают какое то количество учеников, нужно написать сколько учеников сдали документы, сколько пришли на экзамен, и сколько учеников кто прошло и не прошло
возможно не возможно создать программу на этой идее, тогда прделагайте свои со своими программами , пожалуйста помогите!
Задание 5.Дополните программу из задания 4 так , чтобы на экран выводились числа от 1 до 10,а также квадраты и кубы этих чисел в следующем виде:
1 1 1
2 4 8
3 9 27
... ... ...
10 100 1000
ПОМОГИТЕ ПОЖАЛУЙСТА,ЗАДАНИЕ 4 ПИСАТЬ НЕ НУЖНО !ПОСТАВЛЮ ЛУЧЩИЙ ОТВЕТ И "СПАСИБО"
программу, уменьшающую все элементы массива на единицу.
Нужно составить задачу и по ней программу(ПАСКАЛЬ)