// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger; if n>0 then n-=8; Writeln(n) end.
evainvest1
07.09.2021
PascalABC: program n; var a: integer; begin readln(a); if a>0 a-=8; writeln(a); end.
C# int: a = 0; a = Convert.ToInt32(Console.ReadLine()); if (a>0) { a-=8; } Console.WriteLine(a);
Console.ReadLine();
nurtilekisakov
07.09.2021
//Описание добавить не вышло на сайт, посему - в файле
#include "stdafx.h" #include <conio.h>
void swap(short &a, short &b) { short c = a; a = b;
b = c; }
void sort(short &a, short &b, short &c) { short min = a, max = c; if (min > b) min = b; if (min > c) min = c; if (max < a) max = a; if (max < b) max = b; b = a + b + c - min - max; a = min; c = max; }
if ((a1 == a2) && (b1 == b2) && (c1 == c2)) printf("Boxes are equal"); else if ((a1 <= a2) && (b1 <= b2) && (c1 <= c2)) printf_s("The first box is smaller than the second one"); else if ((a2 <= a1) && (b2 <= b1) && (c2 <= c1)) printf_s("The first box is larger than the second one"); else printf_s("Boxes are incomparable");
_getch(); return 0; }
armusaeff
07.09.2021
1) from random import random N = 10 a = [] for i in range(N): b = int(random() * 50) a.append(b) print(a)
min = 101 for i in range(N-1): s = a[i]+a[i+1] if (s < min) and (s % 2 == 1): min=s print(min)
Пример:[41, 35, 16, 7, 29, 9, 16, 28, 10, 6] 23
2) from random import random N = 10 a = [] for i in range(N): b = int(random() * 50)-25 a.append(b) print(a)
k = 0 for i in range(N-1): p = a[i]*a[i+1] s = a[i]+a[i+1] if (p % 2 != 0) and (s > 0): k = k+1 print(k)
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
if n>0 then n-=8;
Writeln(n)
end.