Люди, нужна ваша помощь, используя программу Pascal. Незнающих прошу пройти мимо. Следует составить 2 программы согласно 2 заданиям ниже :)
(ввод с клавиатуры)
1) Найдите сумму первой и последней цифр четырехзначного числа.
2) Записать четырехзначное число в обратном порядке.
Аноним:
Обращение "Ребята" автоматически исключает всех, кроме молодняка мужского пола. Ваше право, конечно...
стало лучше?
Не сильно, но по крайней мере, корректнее.
раз принимается, то уже хорошо)
1.
var a, b: integer;
begin
readln(a);
b := a mod 10;
a := a div 1000;
a := a + b;
end.
2.
var a: integer;
begin
readln(a);
a := (a mod 10)*1000 + (a div 10)*100 + (a div 100)*10 + (a div 1000)
end.
var a, b: integer;
begin
readln(a);
b := a mod 10;
a := a div 1000;
a := a + b;
end.
2.
var a: integer;
begin
readln(a);
a := (a mod 10)*1000 + (a div 10)*100 + (a div 100)*10 + (a div 1000)
end.
Здесь, потому что "Уже отвечают максимальное число пользователей".
вопрос небольшой. а writeln здесь можно вклинить? и если да, то как ...
В конце каждого: writeln('Искомое число = ', a);
И да, в последней формуле не хватает знака ";" в конце.
Ответы
Ответ дал:
1
uses crt;
var input:integer;
begin
readln(input);
var a := input mod 10;
var b := input div 10;
b := b div 10;
b := b div 10;
writeln('Сумма первой и последней цифры: ', a + b);
b := 0;
while input > 0 do
begin
b := b * 10 + input mod 10;
input := input div 10;
end;
writeln('Перевернули цифру: ', b);
end.
var input:integer;
begin
readln(input);
var a := input mod 10;
var b := input div 10;
b := b div 10;
b := b div 10;
writeln('Сумма первой и последней цифры: ', a + b);
b := 0;
while input > 0 do
begin
b := b * 10 + input mod 10;
input := input div 10;
end;
writeln('Перевернули цифру: ', b);
end.
Ответ дал:
1
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите четырехзначное число');
Writeln('Сумма первой и последней цифры равна ',n div 1000+n mod 10);
Writeln('Реверс числа: ',n.ToString.Inverse)
end.
Пример
Введите четырехзначное число 5719
Сумма первой и последней цифры равна 14
Реверс числа: 9175
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите четырехзначное число');
Writeln('Сумма первой и последней цифры равна ',n div 1000+n mod 10);
Writeln('Реверс числа: ',n.ToString.Inverse)
end.
Пример
Введите четырехзначное число 5719
Сумма первой и последней цифры равна 14
Реверс числа: 9175
Вас заинтересует
3 месяца назад
3 месяца назад
10 месяцев назад
10 месяцев назад
1 год назад