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

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

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

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

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

Задать свой вопрос
Даниил Степыгин
Извините, это информатика. Спешил, поэтому поставил физика.ъ
1 ответ
Var x,y,z: integer;
Begin
writeln('Введи шестизначное число');
readln (x);
y:= x div 1000;
z:= x mod 1000;
writeln(y+z);
readln;
End.
Светлана Альбедиль
var x,y,z: longint
Ольга
1-ая строчка такая должна быть
Олеся Тамая
Спасибо, поправил =)
Артемий Савныкин
А здесь поможете?1. Написать программу, которая считает количество 0 в данном шестизначном числе.Пример работы программы:Введите число: 205408Кол-во нулей в числе: 2
Larisa Shadyzhanova
var x,n: longint;Beginwriteln('Введи шестизначное число');readln (x);for i:=1 do 5 dowriteln(y+z);readln;End.
Тимур Кямилев
Спасибо!
Оксана Тодорович
я еще не решила
Таисия
нечаянно энтер надавила
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт