03.04.2013, 10:45
|
#11 (permalink) |
|
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
5) задание Код:
program Cel1;
var
R: integer;
A: integer;
begin
Write('Введите А: ');
Readln(A);
R:=A mod 10;
while A>0 do
begin
A:=A div 10;
if R<(A mod 10) then R:=A mod 10;
end;
Write('R:',R);
end.
|
|
|
|
03.04.2013, 10:45
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можете обратить внимание на схожие темы, они вам помогут DELPHI Решите пожалуйста задачи по Delphi Delphi Задачи с использованием численных методов, Delphi Задание по Delphi |
|
03.04.2013, 10:59
|
#12 (permalink) |
|
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
7)
Код:
program Cel1;
var
R: integer;
A: integer;
max:integer;
i:integer;
begin
Write('Введите А: ');
Readln(A);
R:=A mod 10;
i:=1;
max:=1;
while A>0 do
begin
A:=A div 10;
inc(i);
if R<(A mod 10) then begin R:=A mod 10;max:=i; end;
end;
Write('Max:',max);
end.
Найти сумму s значений разрядов целого числа a Яндекс выдает Нашлось 1 млн ответов. Другими словами Найти сумма цифр целого числа Яндекс выдает Нашлось 2 млн ответов. Даже здесь на форуме наверняка неоднократно решалась. |
|
|
|
|
03.04.2013, 11:13
|
#13 (permalink) |
|
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
8)
Код:
program Cel1;
var
R: integer;
A: integer;
AA,i:integer;
begin
Write('Введите А: ');
Readln(A);
R:=A mod 10;
A:=A div 10;
i:=1;
AA:=A;
while A>0 do
begin
A:=A div 10;
i:=i*10;
end;
A:=R*i+AA;
Write('A:',A);
end.
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
