Ответ:1)Жесткий диск, 2)Процессор
Объяснение:Думаю правильно
Var
k, n: integer;
begin
k := 0;
n := 3;
repeat
k := k + 1;
n := n + 7;
until n > 366;
writeln(k);
end.
Ответ 52
Program danya;uses crt;var a,b,c:integer;beginclrscr;for a:=1 to 1000 do begin for b:=1 to 1000 do begin for c:=1 to 1000 do begin if (a+b+c=407) and (a*b*c mod 1000000 = 0) then writeln ('',a,' ',b,' ',c); end; end;end;<span>end.</span>
Class Program
{
static void Main(string[] args)
{
int res = 1;
Console.Write("Введите n: ");
int n = Convert.ToInt32(Console.ReadLine());
for(;n > 0; n--)
res *= n;
Console.Write("Результат: {0}",res);
Console.ReadLine();
}
}