Входные данные:
В первой строке вводится целое положительное число
(
). Во второй строке через пробел вводится
чисел
(
).
Выходные данные:
В единственной строке выходного файла OUTPUT.TXT через пробел вывести все
элементов массива
, каждый из которых увеличен в 2 раза.
Пример ввода:
6
1 2 3 4 5 6
Пример вывода:
2 4 6 8 10 12
Писал на: PascalABC.Net v.3.2, сборка 1325 (19.10.2016)
Исходный код решения находится в приложении ниже. Открыть можно только в веб-версии.
<span>Позволяет выбрать гарнитуру,
размер и начертание используемого шрифта.
Форматирование текста проще говоря.</span>
16 bit * 1280 px * 1024 px = 20.971.520 bit/ 8 bit = 2621440 byte / 1024 bit = 2560 kilobytes / 1024 byte = 2,5 megabytes
Var a1,a2,a,n:integer;
begin
a1:=1; a2:=1;
n:=2;
while a2<=100 do
begin
a:=a1+a2;
a1:=a2;
a2:=a;
n:=n+1;
end;
writeln('n = ',n,' an = ',a2);
end.
Результат:
<span>n = 12 an = 144</span>
Var a,b,c,z:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
z:=a;
if z < b then z:=b;
if z < c then z:=c;
WriteLn(z*z);
End.