P.S Программанаписна для Pascal.
program chislo;
var
n, s, k :real;
begin
writeln('Введите число: ');
read(n);
if n>=0 then
begin
s:=sqrt(n);
writeln('Квадратный корень числа: ',s);
end
else
begin
k:=sqr(n);
writeln('квадрат числа: ',k);
end;
end.
1) Создаешь папку BOX
2)В папке BOX папку LETTER
3) В папке LETTER создаешь текстовый документ peter.txt и kate.txt
4)В папке LETTER создаешь папку WORK
5) В папке WORK создаешь текстовый документ april.txt и may.txt
6)В папке LETTER создаешь папку FREND
7) В папке FREND создаешь папку SCHOOL
8) В папке SCHOOL создаешь текстовый документ mary.txt
9) В папке FREND создаешь текстовый документ sport.txt
Код на руби
alphabet = " abcdefghijklmnopqrstuvw".upcase
a = []
a[0] = ""
for i in 1..9
a[i] = alphabet[i] + a[i-1] + a[i-1]
p a[i]
end
s = a[9]
p s[1-1]+s[511-1]+s[6-1]+s[258-1]+s[68-1]
Вывод
"A""BAA""CBAABAA""DCBAABAACBAABAA""EDCBAABAACBAABAADCBAABAACBAABAA""FEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAA""GFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAA""HGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAA""IHGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAHGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAA""IADGE"
Ответ "IADGE"
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure DimDimoch(x:real; n:integer; var r:real);
begin
r:=n*Sqr(Sqr((x+3*x)))-12*x*n+2*n
end;
begin
var x:real;
var n:integer;
Write('Введите x и n: '); Read(x,n);
var r:real;
DimDimoch(x,n,r);
Writeln('Значение функции ',r)
end.
<u>Пример</u>
Введите x и n: -1.23 4
Значение функции 2410.83920384
begin
Writeln('Введите 6 пар целых чисел');
var k:=0;
loop 6 do begin
var (a,b):=ReadInteger2;
if (a+b).IsEven then k+=1
end;
Writeln('Число пар с четной суммой: ',k)
end.
<u>Пример</u>
Введите 6 пар целых чисел
15 23
19 -7
5 0
4 11
132 63
444 12
Число пар с четной суммой: 3
Uses Crt;
const n = 100;
var i: integer;
begin
ClrScr;
for i:=1 to n do
if (i mod 2<>0) and (i mod 3 =0) then Write (i:4);
ReadLn;
<span>end.</span>