Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program ssd;
uses crt,graph;
var a,a1,a2,a3: integer;
begin
clrscr;
writeln('введите трехзначное число');
readln(a);
a1: = a mod 10;
a2: =(a div 10) mod 10;
a3: = a div 100;
writeln(' ',a1,a2,a3);
readkey;
end.
если 2 сервера за 2 секунды могут обработать 2 миллиона запросов, то один сервер за 2 секунды обрабатывает 1 миллион запросов.
тогда за 6 секунд 1 сервер обрабатывает 1*3 = 3 миллиона запросов, а шесть серверов, соответственно, в 6 раз больше = 18 миллионов запросов.
ответ: 18 млн запросов.
read(n);
s = str(n);
n1 : = int(s[1]);
n2 : = int(s[2]);
n3 : = int(s[3]);
if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")
var x1,x2,x3,s1,s2,s3: integer;
function sumofnumber(num: integer): integer;
var s: string;
i: integer;
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);
в правильности написания функции типов не уверенна.
Популярные вопросы