2
<span>Решение должно иметь от 20 до 5000 символов</span>
Var
i, k, c, tetka1, tetka2: integer;
begin
readln(k);
readln(c);
tetka1 := 0;
tetka2 := 0;
for i:=1 to 3*60 do
begin
inc(tetka1, k);
inc(tetka2, c);
end;
if tetka1 > tetka2 then
writeln('Первая тётка говорит больше на ', tetka1 - tetka2, ' слов')
else
if tetka1 < tetka2 then
writeln('Вторая тётка говорит больше на ', tetka2 - tetka1, ' слов')
else
writeln('Обе тётки болтают с одинаковой эффективностью');
<span>end.</span>
Мені здається, відповідь 37
Random rnd = new Random();
int n = rnd.Next(20);
int[] a = new int[n], b = new int[n];
for (int i = 0; i < n; i++)
{
a[i] = rnd.Next(21) - 10;
Console.Write("{0,4}", a[i]);
}
b[0] = a[0];
Console.Write("\r\n{0,4}", b[0]);
for (int i = 1; i < b.Length; i++ )
{
b[i] = b[i - 1] + a[i];
Console.Write("{0,4}", b[i]);
}
<span>Console.ReadLine();</span>