Составить программу в кумире: Измените код программы сумма цифр двузначного числа так, чтобы программа меняла цифры двузначного числа местами. Например, ввод: 81, вывод: 18.
Ответы
1).необходимо придумать сценарий.
Объяснение:
2).Паучёк (сценарий мультика)
Сцена 1.
Летний вечер. Веранда. Гости пьют чай.
Сверху, на паутинке, спускается маленький паучёк. Медленно.
Его не сразу замечают.
Разнообразная реакция гостей: кто-то умилился, кто-то удивился, кто-то испугался.
Сцена 2.
Ночь.
Паучёк бежит по потолку в комнате Маши. Она спит.
Просыпается, хочет испугаться - но потом передумывает.
С интересом наблюдает, что делает паучёк.
И, когда, он пускается к ней на кроватку - знакомится с паучком.
Сцена 3.
Ночь
Маша подружилась с паучком.
Она его предсталяет всем гостям.
Они ахают и удивляются и умиляются.
И лишь один мальчик, брат её, не рад.
Он зол на паучка - непонятно почему.
Сцена 4.
Мальчик хочет убить паучка.
Но тот очень увёртливый, не получается.
Паучёк спрятался высоко, его никто не видит.
Сцена 5.
Маша вечером долго ждёт паучка, его всё нет.
Маша грустит, ищет его везде.
Не находит.
В слезах ложится спать.
Сцена 6.
Ранним утром паучёк спускается к ней.
Маша очень рада, говорит вякий нежные слова.
Обещает, что не даст его в обиду.
Паучёк тоже рад.
Занавес.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Составить программу строит изображения предмета в плоском зеркале(расстояние от предмета до зеркала вводится с клавиатуры
Напишите программу на языке pascalabc.net которая с алгоритма евклида вычисляет нод.
Как это называеться ? похоже на ампер и вольт метр . все это одно устройство
Найти сумму всех чётных чисел от 100 до 200 (информатика циклы)
Информатикавообщем , нужно найти все пути от точки а в точку к
Мощность алфавита= 128. найти: информационный объем текста, содержащийся в 3 символа.
Объяснение:
var a,b,s,o:integer;
begin
o := 0;
writeln('введите количество секунд');
readln(a);
writeln('1.муж 2.жен');
readln(b);
s:=0;
if b = 1 then
begin
if (a <= 400) and (s=0) then
begin
o := 5;
s := s+1;
end;
if (a <= 500) and (s=0) then
begin
o := 4;
s := s+1;
end;
if (a <= 600) and (s=0) then
begin
o := 3;
s := s+1;
end;
if (a <= 700) and (s=0) then
begin
o := 2;
s := s+1;
end;
end
else
begin
if (a <= 500) and (s=0) then
begin
o := 5;
s := s+1;
end;
if (a <= 600) and (s=0) then
begin
o := 4;
s := s+1;
end;
if (a <= 700) and (s=0) then
begin
o := 3;
s := s+1;
end;
if (a <= 800) and (s=0) then
begin
o := 2;
s := s+1;
end;
end;
writeln('оценка: ',o)
end.