Т а к ? ________________________________
Прикреплена фотография только 6 задания, поэтому решил только его.
Янт, ты любишь разговаривать по телефону? (Да\Нет)
Янт, ты разговариваешь? (Да\Нет)
—————————————————————
Янт, кому ты звонишь? (Нельзя ответить да \нет)
Янт, придумай сам этот вопрос.
Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end. Это?
Using System;
class Calc
{
static void Main(string[] args)
{
double s = 0;
for (int i = 1; i < 11; i++)
{
s += (double)1 / i;
}
Console.WriteLine(s);
Console.ReadKey();
}
}