Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 977 ответов!

Напишите пожалуйста программу на паскале

10-11 класс

Flomik1 05 мая 2013 г., 10:15:01 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
SSS88
05 мая 2013 г., 12:06:21 (10 лет назад)

program z7;
uses crt;
var
l,e,d:byte;
i:integer;
begin
clrscr;
write('Vvedi chislo='); readln(l);
e:=l mod 10; {- вычисляем разряд едениц}
d:=l div 10; {- вычисляем разряд десятков}
i:=1000+e*100+d*10+1; {- полученное число должно состоять из 1000+цифра стоящая в разряде едениц*100+цифра стоящая в разряде десяток*10+ единица}
write('Poluchennoe chislo ravno ',i);
readkey
end.

Ответить

Другие вопросы из категории

как удалить эту запись?)
Помогите пожалуйста!!! В массиве хранятся сведения о количестве осадков, выпавших за 10 дней июня. Написать программу, которая определяет общее

количество осадков за 10 дней. Массив должен вводиться во время работы программы. Ниже представлен рекомендуемый вид экрана во время работы программы:

Введите в одной строке элементы массива (10 чисел) и нажмите <Enter>

-> 12 0 10 22 0 0 0 10 0 0

Общее количество осадков за 10 дней: 54

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

1) Напишите пожалуйста программу (на языке BASIC) вычисления по длинам двух сторон треугольника и углу между ними длины третьей стороны и двух других

углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.

дан целочисленный массив из n элементов A(n) в пределах от -20 до 20.Найти сумму тех чисел,которые кратны 5

напишите пожалуйста программу на паскале и блок схему!)

Даны 2 двузначных целых числа X и y.Найти D=MAX{x+y;y-x}+3,E=MIN{x^2+y^2;y^2+x*y}-4.если D<E,то к переменной D прибавить первую цифру числа

E,иначе из числа взять корень степени, равной второй цифре числа

если есть умеющте напишите,пожалуйста,программу в Паскале



Вы находитесь на странице вопроса "Напишите пожалуйста программу на паскале", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.