Заметим, что так как
собаки 120
кошки 270
кошки | собаки 390
то нет страниц, на которых ключевыми словами являются одновременно собаки и кошки (120+270=390; кошки и собаки = 0). Диаграмма Эйлера для такого случая показана на прилагаемом рисунке.
К1+К3 = 120
К2+К4 = 270
K3+К4+К5 = 100
К1+К2+К3+К4 = 390
K4 = 20
K3 = 10
К1+К2+К3+К4+К5 - ?
K5 = (K3+К4+К5)-K3-K4 = 100-10-20 = 70
К1+К2+К3+К4+К5 = 390+70 = 460
Язык СИ:
#include<stdio.h>
#include<stdlib.h>
#include<float.h>
#include<time.h>
int main(){
srand(time(0));
const long double cbc=64.0L-FLT_EPSILON;
unsigned short int r1=cbc/RAND_MAX*rand(),
r2=cbc/RAND_MAX*rand();
printf("R1: %c%c\n",65+r1%8,49+r1/8);
printf("R2: %c%c\n",65+r2%8,49+r2/8);
printf("%s\n",r1%8==r2%8 || r1/8==r2/8?"yes":"no");
return 0;
}
Program n1;
var d:integer; a:real;
begin
writeln('Введите d ');
readln(d);
if d <= (-30) then
a:= d/10;
if d <20 then
a:= (-2)*d+1;
if d >20 then
a:= sqr(d-1);
writeln(a);
readln
end.
================================
program n2;
uses crt;
var pr:boolean;
begin
writeln('* Введите номер месяца *');
pr:=false;
writeln('Сделайте выбор четверти');
writeln('1. 1 четверть');
writeln('2. 2 четверть');
writeln('3. 3 четверть');
writeln('4. 4 четверть');
writeln('5. Выход');
repeat
case readkey of
'1':writeln('Сентябрь | Октябрь');
'2':writeln('Ноябрь | Декабрь');
'3':writeln('Январь | Февраль | Март');
'4':writeln('Апрель | Май ');
'5':pr:=true;
end;
until(pr);
writeln('Конец.');
readln
end.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Write('S=',ReadlnString.ToReals.Sum)
end.
<u>Пример</u>
14.72 253 -15.862 0.562345 17
S=269.420345
Var
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.