<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-100,100); a.Println;
var n:=a.Where(x->x.IsEven).Count;
Writeln('Четных- ',n,', нечетных- ',10-n)
end.
<u>Пример</u>
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6
S = input('Какое расстояние до дачи в километрах?: ')
B = input('Какое количество бензина в литрах, которое потребляет автомобиль на 100 километров пробега?: ')
C = input('Какая цена одного литра бензина?: ')
Price = (int(S) / 100) * int(B) * int(C)
print(Price)
Не знаю как их назвать, но попробуй зайти в Мой Компьютер и удалить что-нибудь от туда, ни куда не заходя (то есть Диск С и т.д.)
Вот это нельзя удалить...
SCREEN 12
INPUT "risovat den ili noch(l/y)"; a$
IF a$ = "l" THEN a = 14 ELSE a = 15
CIRCLE (200, 200), 100, a
PAINT (200, 200), a, a
может так