Учитывая, что там какой-то чел скинул программу на питоне третьем, то я тоже скину третьем питоне, только гораздо короче
n = int(input())
arr = [*map(int, input().split())]
for i in arr:
if i > 0:
print(i, end=' ')
Внимание! Если программа не работает, обновите версию PascalABC.NET !
begin
var (a,b):=readreal2('Введите стороны :');
var (c,d):=readreal2('Введите основания :');
var h:=readreal('Введите высоту :');
var S:=((c+d)/2)*h;
writeln('S=',S);
var P:=a+b+c+d;
writeln('P=',P);
end.
Тест к программе
a= -1 b=2 c=3 s=1.5 (промежуточные m1 m2 m3 сами просчитаете и проверьте)
a=4 b= - 5 c=0 s = 8
2.Windows-1251: 1 символ = 8 бит = 1 байт
Unicode: 1 символ = 16 бит = 2 байт
Размер двоичного кода на Windows-1251 - 60 байт
С.л. 60 байт умноижть на 2 байт = 120 байт - размер в Unicode
3. 8 бит = 1 байт
1 символ юникод = 16 бит = 2 байт
25 символов юникод = 25 умножить на 2 байт = 50 байт
7950 байт делим на 3 (страницы), получаем 2650 байт - размер 1 страницы.
С.л. 2650 байт разделить на 50 байт, получаем 53 строки
4.Фраза в юникоде:
\u041b\u044e\u0431\u0438\u0442\u044c \u0423\u043a\u0440\u0430\u0457\u043d\u0443, \u044f\u043a \u0441\u043e\u043d\u0446\u0435, \u043b\u044e\u0431\u0438\u0442\u044c!
5. 8 бит = 1 байт
1 символ = 1 байт
1000 байт = 1 кбайт
1536 символов = 1536 байт = 1.536 кбайт
6. в 1 мбайте = 1000 кбайт
Ответ: 300 килобайт
7.
2 задание:
Windows-1251 - 60 байт = 128 бит
Unicode - 120 байт = 960 бит
3 задание: Windows-1251 - 7950 байт - 3 страницы = 63600 бит
Unicode - 15900 байт = 127200 бит
5 задание: Windows-1251 - 1536 байт = 12288 бит
Unicode - 3072 байт = 24576 бит
6 задание: Windows-1251 - 300000 байт = 2400000 бит
Unicode - 600000 байт = 4800000 бит
Ответ:
Объяснение:
var i:integer;
begin
for i:=1 to 30 do begin
if i mod 2 = 0 then begin
writeln('*');
end
else
writeln(i);
end;
end.