|
|
|
|
ЛАБОРАТОРНАЯ №1 ВАРИАНТ 5
| Задача:
"Счастливый билет". Задано четырехзначное число - номер билета. Проверить, является ли билет счастливым (сумма первых двух цифр равна сумме последних двух). С клавиатуры вводится число А - номер билета. Результат выводится на экран в удобном для восприятия виде. Примечание: цифры числа можно получить, используя функции div и mod.
|
| Решение: |
| > > Скачать< < |
program task5;
var number,i,delitel:integer;
zf:array[1..4] of integer;
{MASSIV ZIFR CHISLA}
procedure vvod;
begin
writeln('VVEDITE NOMER BILETA');
readln(number);
end;
procedure zifri;
begin
delitel := 1000;
for i := 1 to 4 do
begin
zf[i] := number div delitel;
{ writeln(zf[i]);
}
number := number-delitel*zf[i];
;
delitel := delitel div 10;
end;
end;
procedure proverka;
begin
if zf[1]+zf[2]=zf[3]+zf[4] then writeln('SCHASTLIVII') else writeln('NESCHASTLIVII');
end;
begin
vvod;
{VVOD CHISLA}
zifri;
{RAZDELELNIE ZIFR CHISLA}
proverka;
{PROVERKA SUMMI}
readln;
end.
|
|
| |
