С»: Напишите программу, которая получает с клавиатуры натуральное число и находит наибольшую цифру в его десятичной записи. Пример:

Введите число: 311
Наибольшая цифра: 3

«D»: Напишите программу, которая получает с клавиатуры натуральное число и определяет, есть ли в его десятичной записи одинаковые цифры, стоящие рядом.

Пример:

Введите число: 553 ответ: да.

Введите число: 535 ответ: нет.

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.

a в квадрате плюс b в квадрате:  

;

(a*h)+(b*h)+(a*h)+(b***h3)

или

2*(a*h)+2*(b***h3)

если на 1 кв метр 200 грамм  то 

(2*(a*h)+2*(b***h3))*200=        ответ будет  в граммах

расход обычно указывается на кв  метр : )   

9 кбатй = 73728 бит (кбайт=8192 бит)

73728/1536=48сек

512*48=24576бит=3072 байт ( 1 байт = 8 бит)