Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
ravng258
09.09.2021 16:14 •
Информатика
Как называется программа для поиска ошибок в других программах
👇
Увидеть ответ
Открыть все ответы
Ответ:
Ева433
09.09.2021
1)
var
s: string[6];
n: integer;
begin
s := 'отлично';
n := length(s);
writeln(length('отлично'));
writeln(n);
end.
Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6
2) рисунок
3)var
s, s1: string;
n: integer;
begin
s := 'информатика';
s1 := copy(s, 3, 5);
n := pos(s, s1);
writeln('s=', s);
writeln('s1=', s1);
writeln('n=', n);
end.
Вывод
s=информатика
s1=форма
n=0
Все верно, в s1 не содержится s, а наоборот
4,4
(27 оценок)
Ответ:
артём0092
09.09.2021
Var
i, n, s: integer;
begin
readln(n);
i := 0;
s := 0;
while i < 7 do
begin
if (n mod 2 = 1) then begin
s := s + n;
i := i + 1;
end;
n := n + 1;
end;
writeln(s);
end.
var
i, n, s: integer;
begin
readln(n);
i := 0;
s := 0;
repeat
if (n mod 2 = 1) then begin
s := s + n;
i := i + 1;
end;
n := n + 1;
until i >= 7;
writeln(s);
end.
var
i, n, s: integer;
begin
readln(n);
n := n + (n + 1) mod 2;
s := 0;
for i := 1 to 7 do
begin
s := s + n;
writeln(n);
n := n + 2;
end;
writeln(s);
end.
4,5
(28 оценок)
Это интересно:
О
Образование
05.08.2020
Решить систему уравнений x2 + xy +y2 = 13...
О
Образование
16.03.2023
Решить систему уравнений x2 + y2 + xy = 3...
О
Образование
06.01.2021
Клюква стоит 250 рублей за кг, а малина 200....
К
Кулинария-и-гостеприимство
14.02.2022
Как приготовить кислое молоко: правила и рекомендации...
К
Компьютеры-и-электроника
27.12.2021
Гид по активации звонков по беспроводной сети на Galaxy...
К
Компьютеры-и-электроника
21.05.2022
Как улучшить качество изображения формата jpg...
С
Стиль-и-уход-за-собой
06.03.2022
Как сделать кондиционер для волос: легкий способ для блестящих и здоровых волос...
К
Компьютеры-и-электроника
06.04.2023
Как провести телевизионный кабель сквозь межстеновые пустоты с чердака или из подвала...
М
Мир-работы
10.01.2023
Как создать успешное видео резюме...
К
Компьютеры-и-электроника
23.06.2020
Как скачать видео с YouTube в мобильном браузере Opera Mini: подробный гайд...
Новые ответы от MOGZ: Информатика
Diana12b
28.04.2022
Напишите рекурсивную функцию, печатающую все неотрицательные элементы массива в обратном порядке...
RRuslan619
20.06.2021
Программа должна выводить 1,2,3 если я ввиду 123 у меня получается 1 0 3 (без запятых почему то) что у меня неправильно , нужно program go; var a,b,c,d: integer; begin writeln(...
номе498
07.01.2023
Алфавит языка состоит из 16 знаков. чему равна разрядность двоичного кода при двоичном кодировании этого языка?...
аноним4378
16.12.2021
Виділити одночасно кілька суміжних об єктів не можна за таких дій. а)з використанням миші, виділяючи прямокутну область екрана. б) з використанням комбінації клавіші ctrl+a...
кика20052
31.12.2022
Как записать ращвернутую запись числа...
jjrey252
14.12.2021
Как называется документ в программе Excel?...
sanekYakimov
11.08.2020
В яких операторах допущено помилки? А. Button1.Width := 40; Б. Label1.Font.Color := clBlue; В. Label1.Color = clYellow; Г. Label1.Captіon := Бажаю успіху!...
Вопросик3432
15.06.2020
Запишите значение переменной s,полученное в результате работы следующей программы. dim k, s as integer s = 0 for k = 7 to 12 s = s +11 next k...
Kuk1212
24.09.2022
Вывести на экран номер всех счастливых билетов и подсчитать сколько их? в чем ошибка? var a,b,c,d,f,e,n: longint; k: real; begink: =0; for n: =000001 to 999999 do begin a:...
НебеснаяЛасточка
20.10.2020
Свопросом 8 класса! какие основные события в своей творческой биографии выделяется сам поэт(а.т.твардовский)?...
MOGZ ответил
Які факти свідчать про особисту відповідальність сталіна до масової репресії...
мне нужно сочинение на тему` ЗАПАРКЕ...
Поставь глаголы в дейст.наст. Время Салу - 1 -жақ, Айту-2- жақ, Қатысу-2...
Дано: бер: m=21,6r a=4см b=2,5см c=0,8см p=?...
Dark lenses ... in the device yesterday. Выберите один ответ: a. will install...
Родной язык 4 класс 1 часть страница 39 - 40 номер10 зарание...
Сообщение «всестороннее и гармоничное физическое развитие это очень...
шкидлывими для здоровья людины инфразвуки с частотою 8гц.обчислыты довжину...
У скільки разів зменшується маса витраченого палива , коли теплова електростанція...
Подай многочлен у вигляді різниці двох многочленів так, щоб один з многочленів...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
var
s: string[6];
n: integer;
begin
s := 'отлично';
n := length(s);
writeln(length('отлично'));
writeln(n);
end.
Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6
2) рисунок
3)var
s, s1: string;
n: integer;
begin
s := 'информатика';
s1 := copy(s, 3, 5);
n := pos(s, s1);
writeln('s=', s);
writeln('s1=', s1);
writeln('n=', n);
end.
Вывод
s=информатика
s1=форма
n=0
Все верно, в s1 не содержится s, а наоборот