Регистрация
lagodaviktoria2
13.01.2020 11:40
Информатика
Есть ответ 👍

Петя записал IР-адрес школьного сервера на листке бумаги и положил его в карман куртки. Петина мама случайно постирала куртку вместе с запиской.
После стирки Петя обнаружил в кармане четыре обрывка с фрагментами IР-адреса. Эти фрагменты обозначены буквами А, Б, В и Г. Восстановите IР-адрес. В ответе укажите последовательность букв, обозначающих фрагменты, в порядке, соответствующем IР-адресу.

А 3.133 Б 22 В .73 Г 4.13

158
345
Посмотреть ответы 1

Ответы на вопрос:

HappyGamerAND3000
HappyGamerAND3000
4,4(49 оценок)
{напишите программу, которая находит минимальное и максимальное среди чётных положительных чисел, записанных в файле, и выводит результат в другой файл.} var f: text;   min, max,a : integer;   find: boolean; { есть/нет числа удовлетворяющие условию} begin   assign(f,'dan.txt'); reset(f);   min: =0; max: =0;   find: =false;   while not eof(f) do   begin   read(f,a);   if not find and (a> 0) and (a mod 2=0) then   begin     min: =a; find: =true;   end   else   if find and (a> 0) and (a mod 2=0) and (min> a) then     min: =a;   if (a> 0) and (a mod 2=0) and (max< a) then     max: =a;   end;   close(f);   assign(f,'res.txt');   rewrite(f);   if max=0 then writeln(f,'чётных положительных чисел нет')   else     writeln(f,'min среди чётных положительных чисел =',min, chr(13),           'max среди чётных положительных чисел нет',max);   close(f); end.

Популярно: Информатика