Составить программу на языке паскаль :
5-9 класс
|
Составить программу по нахождению суммы серединых чисел 4 значного числа
Например : 1234
2+3
program p1;
var a,b,c,d:integer;
begin
readln(a);
b:=a div 100;
b:=b mod 10;
c:= a mod 100;
c:= c div 10;
d:=b+c;
writeln(d);
end.
если помог ставь ответ как лучший)
program pr;
var a,perv,vtor,new:integer;
begin
write('Число: ');
readln(a);
perv:=(a div 100) mod 10;
vtor:=(a mod 100) div 10;
writeln(perv,'+',vtor,'=',perv+vtor);
end.
Другие вопросы из категории
ая длина ИНН, если все жители имеют разные номера?
var n,m,head,eye: integer;
begin
writeln('сколько лет вашему дракону?');
readln(n);
head:=1;
eye:=2;
for m:=2 to n do
if m<=100 then head:=head + 3
else head:=head + 2;
eye:=head*2;
writeln('голов',head,'глаз',eye);
end.
компьютерные часы?
одна страница текста содержит 50 строк одна строка 60 символов.
2)Сообщение составленное с помощью 32 символьго алфавита содержит 80 сиволов. Другое сообщение составлено с использованием 64символьного алфавита и содержит 70 символов. Сравните объемы информации содержащейся в сообщении.
информация не воспринимается человеком при данных просмотрах?
1) Тактильная
2) Обонятельная
3) Вкусовая
4) Слуховая
2.Найди лишнее:
1) facebook
2) Linked in
3) в контакте
4) @
3.Какой предмет является лишним ( по ризнаку - управлять курсором)?
1) компьютерная мышь
2) джостик
3)диск
4)клавиатура
4.
Читайте также
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
на вечернее,от 8 до 9 на заочное,менее 8 балов отказано от приема на учебу.
Вывести на экран таблицу соответствия между весом в фунтах и весом в кг для значений от 1 до 20 с шагом 1 фунт (1 фунт=400г)
Пример оформления результата:
1 фунт=0,4 кг
2 фунт=0,8 кг
....
20 фунт=8 кг