Помогите, пожалуйста, написать программу в Паскаль
5-9 класс
|
Если дано трехзначное число, например 123 его можно представить в виде 3+2*10+1*10*10. Воспользовавшись этой информацией, создайте программу, которая, получая от пользователя трехзначное число, будет определять из каких цифр оно состоит и выводить их через пробел (например, 1_2_3).
var a,b,c,d,e:integer;
begin
writeln('Введите число');
readln(a);
b:= a div 10;
e:=a mod 10;
d:=b mod 10;
c:=a div 100;
writeln(c,' ',d,' ',e);
end.
Другие вопросы из категории
a++-++a чему равно? Ноль ответ не совсем правильный..
движением транспорта?
Var a,b,t,M,R :integer;
begin
F:=-(x+4)*(x+2);
end;
BEGIN
a:=-20; b:=20;
M:=a; R:=F(a);
for t:=a to b do begin
if (F(t)>R)then begin
M:=t;
R:=F(t);
end;
end;
write(M);
END.
a) -3
B) 3
C) -2
D) 2
1. добавить/удалить поле
2. отредактировать запись
3. поменять местами записи
4. Добавить запись
5. Удалить запись
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
Напечатать таблицу перевода 1,2,…, 20 долларов США в рубли по текущему курсу (значение курса вводится с клавиатуры).
a) Тип треугольника, который получается при построении по хаданным сторонам треугольника;
Дана строка. Верно ли, что второе слово начинается на ту же букву, которой заканчивается третье слово?