Пару задачек по Паскалю, помогите если не тяжело...

MOTOCoder · 31 май 2008, 01:20

Aigerim писал(а):помогите решить задачу. дана трех значная цыфра.если поменять места первой и второй цыфры,что получится

[syntax='Delphi']
Writeln(((N div 10)mod 10),N div 100,(N mod 100)mod 10);
[/syntax]

Что, сложно? ))

Medved · 31 май 2008, 15:04

А как это - трехзначная ЦИФРА?

BHy4ok · 31 май 2008, 15:30

Medved писал(а):А как это - трехзначная ЦИФРА?

Думаю что так: 100-999

MOTOCoder · 31 май 2008, 16:20

Medved писал(а):А как это - трехзначная ЦИФРА?

Не просто ЦИФРА, а цЫфра

Люди, пишите грамотно и понятно!

Medved · 31 май 2008, 16:47

Вы юмор не поняли=) Цифра - это один символ...

Medved · 31 май 2008, 16:48

&quot писал(а):Не просто ЦИФРА, а цЫфра
Люди, пишите грамотно и понятно!

Это издевательство такое=) Типа цыфырка=)

Aigerim · 01 июн 2008, 12:21

помогите если не сложно.дана двух значная цыфра. есть ли в этом составе цыфра а.

Aigerim · 01 июн 2008, 12:53

найти квадрат слогаемых всех цельных чисел начиная с а до 50

Denys · 01 июн 2008, 15:24

&quot писал(а):помогите если не сложно.дана двух значная цыфра. есть ли в этом составе цыфра а.

if (n div 10 = a) or (n mod 10 = a) then
  writeln('Da');

MOTOCoder · 01 июн 2008, 16:03

Aigerim писал(а):найти квадрат слогаемых всех цельных чисел начиная с а до 50

Ничего непонятно, пишите яснее.