<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var x:=-3.14;
while x<=3.14 do begin
Writeln(x:5:2,' ',sqr(sin(x))+sqr(cos(x)));
x:=x+0.2
end
end.
Результат
-3.14 1
-2.94 1
-2.74 1
-2.54 1
-2.34 1
-2.14 1
-1.94 1
-1.74 1
-1.54 1
-1.34 1
-1.14 1
-0.94 1
-0.74 1
-0.54 1
-0.34 1
-0.14 1
0.06 1
0.26 1
0.46 1
0.66 1
0.86 1
1.06 1
1.26 1
1.46 1
1.66 1
1.86 1
2.06 1
2.26 1
2.46 1
2.66 1
2.86 1
3.06 1
По данному тексту можно понять только что У Светы был белый стаканчик в которым был банановый коктейль, чтоб узнать про Аню или Настю нужно ещё немного текста
Всё очень просто, черточки на линиях идущих из центра ответствуют значениям 5, 10 и 15, линий всего 5, значит диаграмма построена по 5 параметрам, следовательно взглянув на диаграмму мы видим что первое значение у нас 4, соответствует ячейке А1, второе значение 10 соответствует ячейке С1, третье значение 15 соответствует ячейке D1, четвертое значение 4, соответствующее ячейке Е1 и пятое значение 8 соответствующее ячейке F1
1. если слово из 2-х букв
var a,b:char;
begin
readln(a,b);
writeln(a,b);
writeln(b,a);
writeln(a,a);
writeln(b,b);
end.
2, если не из двух букв
тут сначала вводится n - максимальная длина слова, а уже потом 2 буквы
var a,b:char;
n:integer;
procedure gen(i:integer;s:string);
begin
if i>n then exit;
if i<>0 then writeln(s);
gen(i+1,s+a);
gen(i+1,s+b);
end;
begin
readln(n);
readln(a,b);
gen(0,'');
end.
Вот этих скобок нету на клавиатуре.