Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
албания- тирана
бельгия- брюссель
венгрия- будапешт
греция- афины
лихтештейт- вадуц
нет,так как это не текствовый документ ,а картинка,и компьютер читает отсканированный файл картинкой а не текстом!
25 декабря 1951 году был создан первый отечественный комп
var x1,x2,x3,s1,s2,s3: integer;
function sumofnumber(num: integer): integer;
var s: string;
i: integer;
begin
s: =str(num);
for i: = 1 to length(s) do
sumofnumber: = sumofnumber+int(s[i]);
end;
read(x1,x2,x3);
s1: =sumofnumber(x1);
s2: =sumofnumber(x2);
s3: =sumofnumber(x3);
if s1> s2 and s1> s3 then writeln(x1);
if s2> s1 and s2> s3 then writeln(x2);
if s3> s2 and s3> s1 then writeln(x3);
end.
в правильности написания функции типов не уверенна.
Популярные вопросы