Целые числа = Натуральные (1,2,3,4...), Противоположные им (-1,-2,-3,-4...) и 0.
Кол-во мест в зрительное зале может быть только целым.
Рост человека не будет целым (впринципе зависит от единиц (например, 1,8 метра - не целое, 180 см - целое), но точно измерить рост нельзя).
Марка автомобиля обычно целое число.
Площадь не будет целым (аналогично росту, только погрешность ещё больше).
В Паскале целый тип представлен 32-битными целыми числами ( обозначается integer;shortint;longint;byte;word ).
8гб = 8*1024 = 8192
490 * 17 = 8330
8330>8192
Ответ нет, нельзя. Однако если засунуть эти видеоролики в сжатый zip архив то возможно что то получится. В условиях школьной задачи это вряд ли предполагается.
{на основе формулы арифметической прогессии}
var
n: integer;
begin
readln(n);
writeln((5+5+5*(n div 5 -1))/2) ;{((a1+a1+d*(n-1))/2)}
end.
{или перебором без математики}
var
i,n,k: integer;
s:real;
begin
k:=0;
readln(n);
for i:=1 to n do
if i mod 5=0 then begin s:=s+i; k:=k+1; end;
writeln(s/k) ;
end.
Пример
n=100
summa=52.5
1. <span>(число <75) И НЕ (число чётное)
46: </span>(46<75) И НЕ (46 чётное) ⇒ Истина И Ложь ⇒ Ложь
53: (53<75) И НЕ (53 чётное) ⇒ Истина И Истина ⇒ Истина
80: (80<75) И НЕ (80 чётное) ⇒ Ложь И Ложь ⇒ Ложь
99: (99<75) И НЕ (99 чётное) ⇒ Ложь И Истина ⇒ Ложь
Ответ: <span>2) 53
2. </span><span>НЕ (Первая буква согласная) ИЛИ НЕ (Последняя буква гласная)
Пимен: </span>НЕ ("П" согласная) ИЛИ НЕ ("н" гласная) ⇒ Ложь ИЛИ Истина ⇒ Истина<span>
Кристина: </span>НЕ ("К" согласная) ИЛИ НЕ ("а" гласная) ⇒ Ложь ИЛИ Ложь ⇒ Ложь<span>
Ирина: </span>НЕ ("И" согласная) ИЛИ НЕ ("а" гласная) ⇒ Истина ИЛИ Ложь ⇒ Истина<span>
Александр: </span>НЕ ("А" согласная) ИЛИ НЕ ("р" гласная) ⇒ Истина ИЛИ Истина ⇒ Истина
Ответ: <span>2) Кристина
3. </span><span>НЕ (число > 30) ИЛИ (число нечётное)
28: </span>НЕ (28 > 30) ИЛИ (28 нечётное) ⇒ Истина ИЛИ Ложь ⇒ Истина<span>
34: </span>НЕ (34 > 30) ИЛИ (34 нечётное) ⇒ Ложь ИЛИ Ложь ⇒ Ложь<span>
17: </span>НЕ (17 > 30) ИЛИ (17 нечётное) ⇒ Истина ИЛИ Истина ⇒ Истина<span>
45: </span>НЕ (45 > 30) ИЛИ (45 нечётное) ⇒ Ложь ИЛИ Истина ⇒ Истина
Ответ: 2) 34
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.
