Вводится с клавиатуры шестизначное число. Написать программу которая разбивает число **...

Question

Вводится с клавиатуры шестизначное число. Написать программу которая разбивает число на пополам и складывает получившиеся числа.

Пример работы:

Введите число: 145937

Результат: 145+937

Comments

Извините, это информатика. Торопился, поэтому поставил физика.ъ

Answer 1

Var x,y,z: integer;
Begin
writeln('Введи шестизначное число');
readln (x);
y:= x div 1000;
z:= x mod 1000;
writeln(y+z);
readln;
End.

Comments

var x,y,z: longint

---

первая строчка такая должна быть

---

Спасибо, исправил =)

---

А здесь поможете?
1. Написать программу, которая считает количество 0 в заданном шестизначном числе.

Пример работы программы:

Введите число: 205408
Кол-во нулей в числе: 2

---

var x,n: longint;
Begin
writeln('Введи шестизначное число');
readln (x);
for i:=1 do 5 do
writeln(y+z);
readln;
End.

---

Спасибо!

---

я еще не решила

---

случайно энтер нажала