Няко-кун может помочь страждущим в решении простых задачек на делфи. Скорее школьникам и первокурсникам. Вот парочка примеров:
Пример 1. Вводим год, получаем век (столетие):
Program Neprogram;
Var vek,god: integer;
BEGIN
writeln('Vvedite god');
readln(god);
if god mod 10 = 0 then
BEGIN
vek:= god div 100;
writeln(vek,' stoletie');
writeln
End
ELSE
Begin
vek:= god div 100 + 1;
writeln(vek,' stoletie');
writeln;
End
END.
Результат:
Vvedite god
1900
19 stoletie
Или вот например подсчет суммы и произведения цифр в трехзначном числе:
program Neprogram;
Var number,summ,proiz:integer;
BEGIN
writeln('Vvedite chslo');
readln (number);
if number div 100 > 0 then
if number div 100 < 10 then
Begin
summ:= (number div 100) + (number mod 100 div 10) + (number mod 100 mod 10);
proiz:= (number div 100) * (number mod 100 div 10) * (number mod 100 mod 10);
writeln('Summa chisel = ',summ);
writeln('Proizvedenie chisel = ',proiz);
End
else
writeln('Nevernoe chislo')
else
writeln('Nevernoe chislo');
END.
Результат:
Vvedite chslo
99
Nevernoe chislo
Vvedite chslo
567
Summa chisel = 18
Proizvedenie chisel = 210
Вопсчем, обращайтесь есичо.
