Предмет: Информатика, автор: Trezzini812

Дано целое 4-значное число.Вставьте в середину число 0 ,Например 5678=56078 ,через dif и mod PASKAL

iolandavalerypad353: begin
var a := 5678;
a := a div 100 * 1000 + a mod 100;
a.Print
end.

Ответы

Автор ответа: IlyaNazarev

0

var a: integer;
begin
readln(a);
writeln((a div 100)* 1000 + a mod 100);
end.

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: Алгебра, автор: DENISdodke

помогите пажалуйста лул

5 лет назад

Предмет: Английский язык, автор: dprilepskaya

Раскройте скобки, пожалуйста 1) There are a lot of problems which (threat) our natural environment. Acid rain, (globe) warming and air and water (pollute) are the most serious ones. There are some ways to help improve the situation. Firstly, we should encourage (recycle) as the (produce) of new materials causes the most damage. We must learn to reuse things like plastic bags and glass jars. Secondly, driving an environmentally-friendly car is also (help). Furthermore, if you are really concerned about the environment, you can join an (organise) which plants trees or cleans up beaches. Finally, supporting groups such as Greenpeace, which try to prevent many (environment) disasters, would help to ensure that our planet will be clean and safe for future generations. 2) Some of the ultraviolet light from the Sun can be very (danger) to people because it can cause skin cancer. 3) In 1971 a small team of (active) set sails from Canada in an old fishing boat. It was the first __ (act) of Greenpeace.

5 лет назад

Предмет: Математика, автор: Аноним

РЕШИТЕ уравнение. СМ. ФОТО.

5 лет назад

Предмет: Алгебра, автор: axenov

Найдите наибольшее значение функции y=x^2(x-2), на промежутке [-2,3]

9 лет назад

Предмет: Алгебра, автор: mishenina98

$lg sqrt[3]{ x^{4x-1} } = - lg(0,125)$ В ответ запишите $10 x_{0} - 20$ , где $x_{0}$ корень уравнения

9 лет назад