var a,b:integer;
Begin
randomize;
a:=random(99);
writeln('Дополните ', a);
read(b);
if (a+b=100) then writeln(':-)')
else writeln(':-(');
end.
#include <iostream>#include <stdio.h>#include <conio.h>
int main() { setlocale(LC_ALL, "");
int arr[5];
for (int i = 0; i < 5; ++i) { std::cout << "Введите число:"; std::cin >> arr[i]; }
int min = arr[0], max = min;
for (int i = 0; i < 5; ++i) { if (arr[i] < min) min = arr[i]; if (arr[i] > max) max = arr[i]; }
std::cout << min << "\n" << max; _getch(); return 0;}
<span>1) Из (а) и (б): Ваня и Петя - не С. и не В. Т.е. они либо П, либо К. </span>
<span>Соответственно, Коля и Саша - либо С, либо В. </span>
<span>2) Из (в) и (г) следует, что Коля не В, а значит он - С (поскольку Коля - либо С, либо В). </span>
<span>Значит, В - это Саша (поскольку Саша - либо С, либо В, а С - это Коля) </span>
<span>3) Раз Саша - В, то Петя выше, чем П (из пунктов (в) и (д)), значит, он не П, а К. </span>
<span>Соответственно, Ваня - П.</span>
var
a, b: <em>real</em>;
begin
readln(a, b);
writeln(a / 10 < b / 4 ? trunc(a / 10) : trunc(b / 4), ' days');
<span>end.</span>