Пробуй поменять
#include<windows.h>
на
#define _WIN32_WINNT 0x0500
#include<windows.h>
# # Код на ruby 2.2.3p173
def zadanie(str)
p str
str = str.downcase
a = str.split(" ")
return [str, a.last.count("а")]
end
# Примеры применения
p zadanie("Шла Саша по шоссе и сосала сушку")
p zadanie("А роза упала на лапу азора")
p zadanie("Чему быть - тому не миновать")
Var i,k,p,r,m,n: integer;
<span>begin
</span><span> write('размер клетки k = '); readln(k);
</span><span> write('радиус круга r = '); readln(r);
</span><span> n:=r div k;
</span><span> if ((r mod k)>0) then inc(n);
</span><span> m:=0; p:=n-1;
</span><span> for i:=1 to n-1 do
</span><span> begin
</span><span> if Ceil(sqrt(r*r-k*i*k*i))<=p*k then
</span><span> begin
</span><span> p:=p-1;
</span><span> m:=m+n-i;
</span><span> end;
</span><span> end;
</span><span> m:=4*n*n-4*m;
</span><span> writeln(m);
</span><span>end.
</span>размер клетки k = 1
<span>радиус круга r = 5
</span><span>88
</span>размер клетки k = 3
<span>радиус круга r = 7
</span><span>32
</span>размер клетки k = 4
<span>радиус круга r = 5
</span><span>12
</span>
1.Не употреблять пищу, находясь за компьютером.
2.Перед использованием компьютера мыть руки, чтобы не загрязнять клавиатуру и мышь.
3.Не трогать пальцами монитор
4.Не выдергивать из компьютера какие-либо шнуры во время его работы.
5.Не выключать компьютер с помощью кнопки, выдергивания шнура питания.
6.Выключать компьютер только через "пуск"-"завершение работы".
7.Находиться на расстоянии 20-30см от монитора.
8.Не делать резких движений при работе с компьютером.
9.Держать свое рабочее место в чистоте и порядке.
10.Переодически очищать компьютер от загрязнений специальными влажными салфетками.
12.Не изменять настройки, не зная результата
13.Не работать за компьютером одновременно более чем одному человеку.
14.При долгой работе с компьютером делать зарядку для глаз и тела
15.Не работать за компьютером более 3 часов в день за избежание вреда для здоровья.