1.
<u>алг</u> сумма
нач цел sum=0,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
нц для i от 1 до 5
sum:=sum+a[i]
кц
вывод sum
<span><u>кон</u>
2.
</span><u>алг</u> произведение
нач цел mult=1,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
нц для i от 1 до 5
mult:=mult*a[i]
кц
вывод mult
<u>кон</u>
3.
<u>алг</u> максимум
нач цел макс,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
макс:=a[1]
нц для i от 2 до 5
если a[i]>макс то
макс:=a[i]
все
кц
вывод макс
<span><u>кон</u></span>
Биты (*8) - байты (*1024)- Кбайт (*1024)- Мбайт (*1024) -Гбайт (*1024)
21 Гб =22020096 Кб
Дальше сама. Всё же просто .
1. k=64*40*48=122880(символов)
i=8(бит)
I=k*i=122880*8(бит)=122880(байт)=120(Кбайт)
Ответ: 1)
2. k=48*40*32=61440(символов)
i=8(бит)
I=k*i=61440*8(бит)=61440(байт)=60(Кбайт)
Ответ: 4)
Var
x:integer;
y:real;
begin
readln(x);
if x < 0 then
begin
y:= 1/x*x;
end
else
y:=x/6;
writeln(y);
end.
Кхм. У нас было похожее задание. У нас в учебнике в начале параграфа прям так и написано "ключевые слова/определения" и слова, которые описывают всю суть параграфа. Если у вас такого нет, просто спиши слова которые выделены жирным или курсивом в параграфе и вуаля.