Uses crt;
var n: Integer;
begin
read(n);
clrscr;
if (n mod 3) = 0 then writeln('Является') else
writeln('Не является');
end.
Кислый , горький, вкусный
#include <windows.h>
#include <conio.h>
#include <math.h>
#include<iostream>
using namespace std;
int main()
{
double m=0;
for (int n = 1;n < 1000;n++) {
m += pow(n, 2) - 2 * n*(n+1) + pow(n+1, 2);
}
cout << m;
_getche();
return 0;
}
Глаза воспринимают световые сигналы, которые обрабатывает его <u>мозг</u>, преобразуя световые <u>сигналы</u> в <u>картинки.</u>
var
a: real;
k: byte;
begin
writeln('1 - l okp.');
writeln('2 - r okp.');
writeln('3 - d okp.');
readln(k);
readln(a);
write('S = ');
case k of
1: writeln(sqr(a) / (4 * Pi):0:2);
2: writeln(Pi * sqr(a):0:2);
3: writeln(Pi * sqr(a / 2):0:2);
else writeln('?');
end;
end.