Составить алгоритмы в виде блок схемы которое по номеру семестра печатает курс к которому относится введённый семестр (1 и 2 семестр-1 курс, 3 и 4 семестр-2 курс и тд)
Человек со дня своего сотворения стремился обустроить свой быт. Технический прогресс даровал нам электричество, тепло, системы вентиляции и кондиционирования, а также теплые полы, системы охраны и т. д.
Сегодня есть возможность объединить все эти блага в систему “умный дом”.
Умный дом - один из продуктов высоких технологий, являвшийся своего рода флагом HI-TECH революции. Если ранее только в фантастических рассказах герои жили в домах, которые были почти одушевлены и выполняли все приказания хозяев, то в последнее время системы «умный дом» стали появляться и в реальности в распоряжении очень обеспеченных людей. Вначале в США, Японии, а затем и в Европе, России.
Var ar:array[1..n] of integer; pro,i,k:uint64; begin randomize; pro:=1; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(22,23); //Серьёно? write(ar[i]:4); pro:=pro*ar[i]; end; writeln; writeln('Pro=',pro); write('Enter value:'); readln(k); writeln('Final array:'); for i:=1 to n do begin ar[i]:=ar[i]+k; write(ar[i]:6); end; end.
Пример работы программы: First array: 23 23 22 22 22 22 23 23 23 22 23 22 22 23 23 Pro=10868183115618730368 Enter value:3 Final array: 26 26 25 25 25 25 26 26 26 25 26 25 25 26 26
Человек со дня своего сотворения стремился обустроить свой быт. Технический прогресс даровал нам электричество, тепло, системы вентиляции и кондиционирования, а также теплые полы, системы охраны и т. д.
Сегодня есть возможность объединить все эти блага в систему “умный дом”.
Умный дом - один из продуктов высоких технологий, являвшийся своего рода флагом HI-TECH революции. Если ранее только в фантастических рассказах герои жили в домах, которые были почти одушевлены и выполняли все приказания хозяев, то в последнее время системы «умный дом» стали появляться и в реальности в распоряжении очень обеспеченных людей. Вначале в США, Японии, а затем и в Европе, России.
Объяснение:
потому что
Const
n=15;
Var
ar:array[1..n] of integer;
pro,i,k:uint64;
begin
randomize;
pro:=1;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(22,23); //Серьёно?
write(ar[i]:4);
pro:=pro*ar[i];
end;
writeln;
writeln('Pro=',pro);
write('Enter value:');
readln(k);
writeln('Final array:');
for i:=1 to n do
begin
ar[i]:=ar[i]+k;
write(ar[i]:6);
end;
end.
Пример работы программы:
First array:
23 23 22 22 22 22 23 23 23 22 23 22 22 23 23
Pro=10868183115618730368
Enter value:3
Final array:
26 26 25 25 25 25 26 26 26 25 26 25 25 26 26