Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Каке11
08.09.2020 14:24 •
Информатика
Кто из нижеперечисленных людей не имеет отношения к устройствам ввода-вывода?
ОАвгуст Дворак
ОДуглас Энгельбарт
ОПол Клипш
ОДжейми Оливер
👇
Увидеть ответ
Открыть все ответы
Ответ:
Ева433
08.09.2020
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
08.09.2020
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 оценок)
Это интересно:
31.01.2021
Как бороться со стрессом с помощью еды...
Х
Хобби-и-рукоделие
20.02.2022
Как просто и быстро сделать стильные шорты из старых джинсов: 5 шагов к идеальному летнему гардеробу...
М
Мир-работы
27.04.2021
5 способов не отвлекаться на Интернет во время работы...
К
Кулинария-и-гостеприимство
31.01.2022
Огурец - искусство нарезки...
С
Стиль-и-уход-за-собой
25.11.2021
Как легко и быстро растянуть обувь на каблуках?...
К
Кулинария-и-гостеприимство
30.08.2020
Как использовать конвекционную тостер-печь: настоящий гид для начинающих...
З
Здоровье
13.03.2023
10 уникальных советов о том, как помочь выздороветь близкому человеку...
Ф
Финансы-и-бизнес
13.02.2022
Как эффективно вести учет дебиторской задолженности?...
02.09.2021
Как пережить плохую оценку: навыки управления эмоциями и продуктивной работы на ошибке...
К
Компьютеры-и-электроника
20.11.2022
Как быстро установить Qt SDK на Ubuntu Linux:...
Новые ответы от MOGZ: Информатика
avetik04
26.03.2021
Посмогите Примечание. Размер стипендии составляет 1560 руб. Если все экзамены сданы на «пятерку», то надбавка составляет 50 %. Если есть хотя бы одна «четверка» (при остальных...
lera14mansurova
30.08.2022
Составьте программу которая запрашивает два числа и выводит меньшее из их суммы и произведения...
оопда
02.02.2023
Кто шарит в информатике .. нужно разработать программу в pascal для решения уравнения вида {a}^{x} = bax=b нужно составить модель, блок-схему и программу хелп...
Анна12061
23.12.2021
Написать программу на языке с#, определяющую достаточно ли денег для совершения покупки. если денег достаточно, вывести на экран сообщение о количестве сдачи, если не достаточно,...
ikonnikov1997
18.10.2021
Скакой целью осуществляется адресация компьютеров в сети...
Vovan3256
18.10.2021
Написать программу, которая выводит таблицу квадратов первых десяти целых положительных чисел. ниже рекомендуемый вид экрана во время работы программы. таблица квадратов. число...
vladislavkraso
30.09.2022
Написать программу в pascal числа a,b и c вводятся с клавиатуры.найти max(a,a+b)+max(a,b+c)/1+max(a+b*c,1,5)...
dghakdkc
04.05.2021
Расставь в верном порядке. внимательно изучить условие; выделить высказывания и обозначить их латинскими буквами; записать условие задачи на языке алгебры логики; составить...
KINGAsyaKING
17.07.2022
Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A , B ] и определяет количество чётных и количество нечётных элементов этого...
Pol111111111663
22.12.2020
Иформационый объем текста равен 3,5 кб. сколько символов содержит этот текст?...
MOGZ ответил
1. Проаналізувавши політичні засади програм тогочасних партій підросійської...
Welche Berufe sind das? Ergänze die fehlenden Vokale und schreibe die Wörter...
Что называют демографией? ...
Прочитайте параграф Латинская Америка в XIX- начале XX в.: время перемен...
Задание N 3. Исходя из прочитанных отрывков, составь психологический портрет...
Точка 0 центр правильного восьмикутника, зображеного на у який відрізок...
Определите скорость передачи данных в бит/с, если файл объемом 400кб передается...
Нітросполука містить 58,5% карбону 4,04% гідрогену26,00% оксигену 11,37%...
Тыңдалым ОҚЫЛЫМ МӘТІНМЕН ЖҰМЫС -тапсырма. Мәтінді тыңда. Оқы. Қазақ даласында...
Архатқа хат Сәлем Архат. Қал жағдайың қалай. Сенің ақша табуыңа тілектеспін....
Полный доступ к 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, а наоборот