ШУМ-ГАМ
ЖАРА-ТЕПЛО
БЕДА-ГОРЕ
МОРОЗ-ХОЛОД
ПУРГА-МЕТЕЛЬ
ГРУСТЬ-ТОСКА
ПРОЧНЫЙ-КРЕПКИЙ
ПРОСИТЬ-МОЛИТЬ
СМЕЯТЬСЯ-ХОХОТАТЬ
НЕБОЛЬШОЙ-МАЛЕНЬКИЙ
БАЛОВАТЬСЯ-ШАЛИТЬ
ДОДУМАТЬ-ДОДЕЛАТЬ
1. <span>var N, k: real; </span>
<span>begin </span>
<span>readln(N); </span>
<span>if (N<0) then k:= 0 </span>
<span>else </span>
<span>begin </span>
<span>if (frac(N)=0) then k:=N*2 </span>
<span>else k:=(trunc(N)+1)*2; </span>
<span>end; </span>
<span>writeln(k); </span>
<span>end.
2. </span><span>Первый хулиган увеличивал количество кусочков на 3
Второй - на 6
То есть, всего кусочков должно быть N = 1 + 3m + 6n
Значит, N - 1 должно делиться на 3
и наоборот, если N - 1 делится на 3
N - 1 = 3k
то возможна ситуация, когда Первый хулиган рвал k раз,
а Второй наблюдал (ничего не рвал).
Алгоритм свёлся к проверке:
Если N -1 не делится на 3, то No
КОНЕЦ</span>
Program test;
const PI=3.14;//Пи делаем константой, потому что оно не меняестся
var
r,s,c:real;//Переменные типа real что бы можно было записывать дробные значения
begin
Write('Введите радиус: ');
Readln(r);//вводим радус
s:=PI*sqr(r);//вычисляем площадь
c:=2*PI*r;//вычисляем длину окружности
Writeln('S = ',s);//
Writeln('P = ',c);//Выводим результат
end.
А) Потому что 33 русские буквы строчные (маленькие), 33 прописные буквы (большие), 26 английских сточных букв (маленькие), 26 английских прописных букв (большие), 10 цифр и еще куча различных символов, вроде запятых, точек, пробелов и т. п.
б) С целью мультиязычности. 8-битные кодировки не могут поддерживать много языков (например, cp1251 - только русский и английский), а в 65536 символов можно засунуть символы кучи языков.
Алгоритм произведения нечетных на интервале 1 - 11