Program prog;
uses crt;
var a: array [1..30] of integer;
i: integer;
begin
clrscr;
for i:=1 to 30 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 30 do
begin
if (abs(a[i]) mod 10)+ (abs(a[i]) div 10) < 10 then
write (a[i], ' ');
end;
end.
Может можно как-то облегчить, но я не додумал еще.
Пока только так: 54/9=6 мест в купе
Program vagon;
var a,b,c,d,e:integer;
begin;
writeln ('Введите номер места');
read (a);
if a <6 then
writeln ('Купе первое');
if (a>6) and (a<12) then
writeln ('Купе второе');
if (a>12) and (a<18) then
writeln ('Купе третье');
if (a>18) and (a<24) then
writeln ('Купе четвертое');
if (a>24) and (a<30) then
writeln ('Купе пятое');
if (a>30) and (a<36) then
writeln ('Купе шестое');
if (a>36) and (a<42) then
writeln ('Купе седьмое');
if (a>42) and (a<48) then
writeln ('Купе восьмое');
if (a>48) and (a<54) then
writeln ('Купе девятое');
end.
1.<span>Что из ниже перечисленного имеет свойство передавать информацию?<span>
Верный ответ: </span></span><span>г) световой луч
2.</span><span>Выберете событие, которое можно отнести к информационным процессам...
Верный ответ: </span><span>б) перекличка присутствующих на уроке</span>
Информатику плохо знаю, поэтому могу дать ответ только на 1 и 2 задание
1
а)11 мб б) 7168 мб с) 5 мб
2
а) 524228 б б)10240 кб