Определить двухзначное число, в котором число десятков соответствует первой цифре заданного числа, а число единиц-последней

@Konfetkaliliya · Регистрация: 21.01.2013

2.Дано целое положительное четырёхзначное число. Напишите программу, позволяющую определить двухзначное число, в котором число десятков соответствует первой цифре заданного числа, а число единиц-последней. Например:3234=>34.

@GggDrej · 23.01.2013, 17:59

Pascal

uses crt;
var a,b:integer;
begin
 readln(a);
 b:=(a div 1000)*10+(a mod 10);
 writeln(b);
end.

Новичок · 23.01.2013, 18:02

Pascal

program dv;
uses Crt;
var a,b:longint;
begin
ClrScr;
Write('Введите четырехзначное число:');
Read(a);
if a div 1000>9 then Writeln('Введенное число не является четырехзначным!!!') else
begin
b:=a div 1000*10+a mod 10;
Writeln('Число образованное первой и последней цифрой:',b);
end;
Readln;
end.

@Konfetkaliliya 0 / 0 / 0 Регистрация: 21.01.2013 Сообщений: 32
		1
	Определить двухзначное число, в котором число десятков соответствует первой цифре заданного числа, а число единиц-последней 23.01.2013, 16:39. Показов 3127. Ответов 2 Метки нет (Все метки) 2.Дано целое положительное четырёхзначное число. Напишите программу, позволяющую определить двухзначное число, в котором число десятков соответствует первой цифре заданного числа, а число единиц-последней. Например:3234=>34. 0

Опции темы

Определить двухзначное число, в котором число десятков соответствует первой цифре заданного числа, а число единиц-последней

Решение