Какое значение будет выведено на экране после выполнения программного кода?
const
M = 7;
N = 5;
var
a: array[1..N,1..M] of integer;
i, j, count: byte;
begin
randomize;
count := 0;
for i:=1 to N do begin
for j:=1 to M do begin
a[i,j] := random(1000);
write(a[i,j]:6);
if (a[i,j] > 9) and (a[i,j] < 100) then
count := count + 1
end;
writeln;
end;
writeln('count= ', count)
end.
* Заголовков SMTP-протокола, полученных сервером. Эти заголовки могут включаться, а могут и не включаться в тело письма в дальнейшем, так что возможна ситуация, когда сервер обладает большей информацией о письме, чем содержится в самом письме. Так, например, поле RCPT TO указывает получателя письма, при этом в самом письме получатель может быть не указан. Эта информация передаётся за пределы сервера только в рамках протокола SMTP, и смена протокола при доставке почты (например, на узле-получателе в ходе внутренней маршрутизации) может приводить к потере этой информации. В большинстве случаев эта информация не доступна конечному получателю, который использует не-SMTP протоколы (POP3, IMAP) для доступа к почтовому ящику. Для возможности контролировать работо системы эта информация обычно сохраняется в журналах почтовых серверов некоторое время.
* Самого письма (в терминологии протокола SMTP — 'DATA'), которое, в свою очередь, состоит из следующих частей, разделённых пустой строкой:
* Заголовков письма, иногда называемых по аналогии с бумажной почтой конвертом (англ. envelope). В заголовке указывается служебная информация и пометки почтовых серверов, через которые письмо, пометки о приоритете, указание на адрес и имя отправителя и получателя письма, тема письма и другая информация. С термином «конверт» есть некоторая путаница, потому что в зависимости от ситуации «конвертом» называют либо заголовок письма, либо информацию, которой располагает SMTP-сервер после получения письма (так, например, в документации к почтовому серверу postfix, термин «конверт» используется в отношении SMTP-данных, включающих не только поля RCPT TO и MAIL FROM, но и IP-адрес отправителя, его строчка HELO и т. д. )
* Тела письма. В теле письма находится, собственно, текст письма. Согласно стандарту, в теле письма могут находиться только символы ASCII. Поэтому при использовании национальных кодировок или различных форм представления информации (HTML, RTF, бинарные файлы) текст письма должен кодироваться по стандарту MIME и не может быть прочитан человеком без использования декодера или почтового клиента с таким декодером.
var
x,y:integer;
begin
writeln('Введите х');
readln(x);
writeln('Введите y');
readln(y);
if x<y then writeln('Меньшее: ',x) else
if x>y then writeln('Меньшее: ',y) else
if x=y then writeln('Числа равны')
end.
задача 2
var
x,y:integer;
begin
writeln('Введите первое число');
readln(x);
writeln('Введите второе число');
readln(y);
if y=0 then writeln('Второе число равно 0. Деление невозможно!') else
writeln(x,'/',y,'=',x/y);
end.
задача 3
var
s,name:string;
begin
writeln('Введите ваше имя');
readln(name);
writeln('Введите строку');
readln(s);
if s=name then writeln('Привет!') else
writeln('Здравствуйте!');
end.
задача 4
var
x:integer;
begin
writeln('Введите число');
readln(x);
if (x mod 2)=0 then writeln('Четное') else writeln('Нечетное')
end.
задача 5
var
x:string;
i:integer;
begin
writeln('Введите строку');
readln(x);
writeln('Введите номер символа');
readln(i);
if i > length(x) then writeln('Нет символа!') else writeln(x[i])
end.
задача 6
var
x,y:integer;
begin
writeln('Количество яблок:');
readln(x);
writeln('Количество апельсинов:');
readln(y);
if (x*100)>(y*150) then writeln('Берите яблоки')
else
if (x*100)<(y*150) then writeln('Берите апельсины')
else
if (x*100)=(y*150) then writeln('Вес яблок и апельсинов одинаковый')
end.