голливуд (20
а), б)
var a, b, c: char;
begin
writeln('введите 3 символа');
readln(a, b, c);
writeln('результат сцепления: ', a+b+c);
if a> b then writeln(a,'> ', b);
if a> c then writeln(a,'> ', c);
if a=b then writeln(a, '=', b);
if a=c then writeln(a, '=', c);
if a< b then writeln(a, '< ', b);
if a< c then writeln(a, '< ', c);
if b> c then writeln(b, '> ', c);
if b< c then writeln(b, '< ', c);
end.
в)
var a, b: char;
begin
writeln('введите 2 символа');
readln(a, b);
if a> b then writeln(b,' ', a);
if a< b then writeln(a,' ', b);
if a=b then writeln(a,' ', b);
end.
составить алгоритм нахождения произведения целых нечетных чисел от 1 до 100.
извини, я на украинском не могу)
буду приводить аналогию на паскале.
в основе будет лежать "двойной" цикл. (for i: =1 to 100 do for j: =1 to 100
в первом цикле мы проверяем делится ли "i" на 2 (if i mod 2=0).
если да(четное), тогда берем след число. если нет(нечет), то запускаем второй цикл:
(for j: =1 to 100)
в нем мы тоже проверяем число на нечетность. если число нечетное, тогда у нас есть уже 1ое произведение! "i" - это первый множитель. "j" - второй. i*j - само произведение. его можно вывести на экран (writeln(i*
получается мы берем по-порядку каждое число от 1 до 100, если оно нечетное, тогда по очереди умножаем его на каждое нечетное число, опять же, от 1 до 100.
на паскале:
for i: =1 to 100 do
if i mod 2< > 0 then
for j: =1 to 100 do
if j mod 2< > 0 then writeln(i*j);
могут встречаться повторы (3*9 и 9*3)
Поделитесь своими знаниями, ответьте на вопрос:
Внекотором каталоге хранился файл. после того как в этом каталоге создали подкаталог и переместили в него файл трансформеры.doc, полное имя файла стало e: \кино\фантастика\голливуд\трансформеры.doc. каково имя созданного каталога?
ответ: голливуд. удачи с информатикой : )