Формула свободного падения и формулы которые тут нужны - разные. могу только дать тебе "скелет" программы. теперь тебе нужно найти именно ЭТИ формулы, которые записаны в задаче, возможно таких формул в чистом виде не существует и нужно применять навыки знания физики
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.
В коде используется неполный условный оператор, то есть нет else {...}.
Тогда условие i>5 будет выполняться только пять раз (i=6,7,8,9,10), в остальных случаях переменная k увеличиваться на единицу не будет. Значит при i=6 получим, что k=k+1=6 и так далее до i=10, k=10.
Ответ 5)10
По середине "источник информации" > "информационный канал" > "приемник информации"
3) пристрої вводу та виводу інформації...
1) електричні прилади
2)Пристрої обчіслення інформації
4) пристрої вводу інформації
5 ) честно кажучи не знаю як обеднати калькулятор з блокнотом ...