fukurochanmiup04xjx
28.05.2020 00:01

ГОТОВ! ГОТОВ БРОСИТЬ КОПЕЙКУ!

1. Какой вид цикла (с параметром или с условием) следует использовать для решения этих задач

А. Чему равно произведение натуральных чисел от 1 до 15

Б. Какому числу стремится значение функции y=(1+1/х)^х

В. Нарисовать на экране компьютера линии всех возможных цветов

Г. На какой дроби результат выражения 1/10+1/11+1/12 станет больше 1:

Д. Сколько гласных букв в предложении

2. Какие из циклов бессмысленнопомещать в программу:

А. While x<0 Do х:=х+5

Б. While х<0 Do х:=х-100

В. While 0
Г. While a>0 do y:=2*y

Д. While a>b do a:=a-1; b:=b+1

E. While abs(x)+1>0.75 do x:=x+1

3. Что будет напечатано на экране В результате выполнения программы, я если известна начальное значение переменной А:

Program Z1; ' тут стартовая а=20

Var a:real;

Begin

Readln(a)

While a>8 do a:=a/2;

Writeln (a)

End.

Program Z2; ' тут стартовая а=10

Var a, b:real;

Begin

Readln(a); b:=-a

Repeat a:=a*2; b:=a+b until a
Writeln (a)

End.

ПРАВДА ГОТОВ ОТПРАВИТЬ ДЕНЬГУ ЗА ОТВЕТ(( МОЖЕТЕ С ОТВЕТОМ ОТПРАВИТЬ ЧТО-НИБУДЬ ДЛЯ СВЯЗИ!

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
veronikasabrin
22.03.2022 22:23
В программе буквы добавляются по алфавиту без повторений.
var s1,s2:string;
function F(var a,b:string):boolean;
var m:set of char; i:integer; c:char;
begin
 m:=[];
 for i:=1 to length(a) do
  if pos(a[i],b)=0 then m:=m+[a[i]];
 for c:=chr(32) to chr(255) do
  if c in m then a:=a+c;
 if m=[] then f:=false else f:=true;
end;
begin
writeln('Введите строку 1:');
readln(s1);
writeln('Введите строку 2:');
readln(s2);
if f(s1,s2)
 then writeln('Новая строка: ',s1) else writeln('Строка не изменилась ');end.

Пример:
Введите строку 1:
program
Введите строку 2:
procedure
Новая строка: programagm
0,0(0 оценок)
Ответ:
Shurikoff1
22.03.2022 22:23
        private string fuction(string a,string b)        {
            char[] massa = a.ToCharArray();            char[] massb = b.ToCharArray();            foreach(char itema in massa)            {                foreach(char itemb in massb)                {                    if(itema == itemb)                    {                        break;                    }                    else                    {                        a += itema.ToString();                        break;                    }                }            }            return a;        }
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота