Напишите пожалуйста программу на паскале
10-11 класс
|
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 чисел) и нажмите <Enter>
-> 12 0 10 22 0 0 0 10 0 0
Общее количество осадков за 10 дней: 54
Читайте также
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
напишите пожалуйста программу на паскале и блок схему!)
E,иначе из числа взять корень степени, равной второй цифре числа
если есть умеющте напишите,пожалуйста,программу в Паскале