Система команд исполнителя Вычислитель состоит из двух команд, которым
присвоены номера:
1 - вычти 2
2 - умножь на 3
Первая из них уменьшает число на 2, вторая увеличивает число в 3 раза.
При записи алгоритмов для краткости указываются лишь номера команд.
Запишите алгоритм для исполнителя Вычислитель, содержащий не более 5 команд:
получения из числа 4 числа 94
Система команд исполнителя Конструктор состоит из двух команд, которым
присвоены номера:
1 - приписать 2
2 - разделить на 2
По первой из них к числу приписывается справа 2,
по второй число делится на 2.
Как будет преобразовано число 8, если исполнитель выполнит алгоритм 222112?
Некоторый алгоритм из одной цепочки символов получает новую цепочку
следующим образом. Сначала вычисляется длина исходной цепочки символов; если
она чётна, то в начало цепочки символов добавляется последний символ, а если нечётна
— в конец цепочки добавляется средний символ. В полученной цепочке символов
каждая буква заменяется буквой, следующей за ней в русском алфавите
(А — на Б, Б — на В и т. д., а Я — на А).
Получившаяся таким образом цепочка является результатом работы алгоритма.
Дана цепочка символов ДРУГ. Какая цепочка символов получится, если к данной
цепочке применить описанный алгоритм дважды (то есть применить алгоритм к
данной цепочке, а затем к результату вновь применить алгоритм)?
Русский алфавит:

👇

Увидеть ответ

Открыть все ответы

Ответ:

KenDipp

19.10.2022

ДВОРНЯГА
ШАРИК ТУЗИК БАРБОС
БУЛЬДОГ
цезарь
граф
васнсар
гари
пудель
эмма белла джозефина стелла

4,4(14 оценок)

Ответ:

mishankina1985

19.10.2022

Меньше в доту катай, все знать будешь :)
1)
uses crt;
var s,s1,s2,s3,r1,r2:real;
begin
writeln ('Введите радиус первого (маленького) круга:');
read (r1);
writeln ('Введите радиус второго (Большего, чем первый) круга:');
read (r2);
//pi - 3.14
s:=3.14*r1*r2 ;
writeln (s);
//s1 - Площадь первого круга, s2 - второго, s3 - кольца
s1:=3.14*sqr(r1);
s2:=3.14*sqr(r2);
if (s1=0) or (s2=0)
then writeln ('Одна из площадей равна нулю')
else begin s3:=s2-s1 ;
writeln (s3); end
end.

2)
uses crt;
var x,y,x1,y1 :integer;
begin
writeln ('Введите целое значение x:'); // В программе используются только целые числа !!
read (x);
if (x-1)<0
then y:=4
else y:=3;
writeln (y);
end.

3)uses crt;
var a,b,c:real ;
begin
writeln ('Последовательно введите 3 числа :');
read (a,b,c);
if (a<>b) and (b<>c) and (a<>c)
then writeln ('Числа не равны')
else
if (a=b) and (b=c) and (a=c)
then writeln ('Числа все равны между собой')
else
if (a=b) and (b<>c)
then writeln (c)
else
if (a=c) and (c<>b)
then writeln (b)
else
if (b=c) and (c<>a)
then writeln (a)
end.

P.s. Писал на Pascal ABC. Блок-схему сделаешь сам, она не сложная. Удачи, инвакир :D

4,6(72 оценок)

Это интересно:

Дом-и-сад

16.05.2021

Как избавиться от пятен после постельных клопов...

Мир-работы

22.03.2022

Как эффективно управлять складом: польза и преимущества...

Питомцы-и-животные

11.03.2022

Хочу хомяка! Как убедить родителей купить домашнего питомца...

Компьютеры-и-электроника