<span>// PascalABC.NET 3.3, сборка 1562 от 02.11.2017</span>
var
x, y :int64;
Begin
Readln(x, y);
Writeln(min(x * 2, y + 20), ' ', max(x * 2, y + 20));
end.
Var i,s:integer;
begin
for i:=10 to 99 do
s:=s+i;
writeln (s);
end.
ну или
var i,s:integer;
begin
i:=10;
while i<100 do begin
s:=s+i;
i:=i+1;
end;
writeln (s);
end.
1. 1) считает кол-во нулевых эл-ов массива
2) сумма эл-ов массива с четными индексами(0;3;4;24)
3) кол-во эл-ов массива кратных 4
4) среднее арифметическое эл-ов массива
2. s=2
3. -1;2;-3;4;-5;5;-4;3;-2;1
задача 1
поскольку и объем лазерного диска и объем дискеты выражены в одних единицах, можно сразу приступать к вычислениям
разделим объем лазерного диска на объем дискеты
650/1,39=467,6 (приблизительно 468) дискет
задача2а
переведем килобайты в байты, умножив на 1024
5Кб=5*1024=5120 байт переведем байты в биты, умножив на 8
5120 байт*8=40960 бит
задача2б
чтобы перевести биты в байты разделим их на 8
12288бит/8=1536 байт
чтобы перевести байты в килобайты разделим полученное число на 1024
1536/1024=1,5 Кб
задача2в
переведем биты в байты
2^13/2^3=2^10 при делении показатели степеней вычитаются
переведем байты в килобайты
2^10/2^10=1Кб
Подбираются имена, так чтобы имя было коротким но в тоже время четко определяло суть переменной и ее использование. Часто в реальных программах также используют разные префиксы и суффиксы.
Также не рекомендуется использовать русские буквы и транслит в названиях переменных.