Решите кто умный в информатике Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while s < 80 do begin
s:=s+2*k;
k:=k+4;
end;
write(s);
end.

2.var s, n: integer;
begin
s := 300;
n := 100;
while s - n >= 100 do
begin
s := s + 20;
n := n + 30
end;
writeln(s)
end.

3.var s, n: integer;
begin
s := 300;
n := 100;
while s div n >= 2 do begin
s := s + 5;
n := n + 5
end;
writeln(s)
end.

4.Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while k < 12 do begin
s:=s+2*k;
k:=k+3;
end;
write(s);
end.

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

namespace ConsoleApplication1

{

    class Program

    {

        static void Main(string[] args)

        {

            //Напишите программу,которая в последовательности целых чисел определяет количество чисел,кратных 5 или 9.

            //Программа получает на вход целые числа,количество введённых чисел неизвестно,последовательность чисел заканчивается числом 0.

            //Количество чисел не превышает 1000.Введённые числа по модулю не превышают 30 000.Программа должна вывести одно число:количество чисел,кратных 5 или 9.

            int n = 0; // количество

            int a = int.Parse(Console.ReadLine());

            while (a != 0)

            {

                if (a % 5 == 0 || a % 9 == 0)

                    n++;

                a = int.Parse(Console.ReadLine());

            }

            Console.WriteLine(n);

            Console.ReadKey();

        }

    }

}

from random import*

def kratnye(chuslo,spysok,chusla,sluchay):

while(chuslo!=0):

chuslo=int(input("Введите число"))

if(chuslo>0):

spysok.append(chuslo)

else:

if(sluchay<5):

for x in spysok:

if(x/5 in range(1,1000,1)):

chusla=chusla+1

print("Чисел, которые делятся на 5:",chusla-1)

elif(sluchay>5):

for x in spysok:

if(x/9 in range(1,1000,1)):

chusla=chusla+1

else:

continue

print("Чисел, которые делятся на 9:",chusla-1)

a=int(input("Напишите 1 чтобы начать, 0 чтобы закончить программу"))

b=[]

c=1

d=randint(1,11)

kratnye(a,b,c,d)