Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
modar55
15.10.2020 05:38 •
Информатика
Проанализируйте URL-адрес «http:ziyonet.uz/arbоblаr/fan/astоnоmlаr».
👇
Увидеть ответ
Открыть все ответы
Ответ:
артём0092
15.10.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 оценок)
Ответ:
Ева433
15.10.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 оценок)
Это интересно:
В
Взаимоотношения
27.11.2022
Как познакомиться с женщинами где угодно: советы от профессионалов...
П
Питомцы-и-животные
04.01.2023
Как правильно ухаживать за щенком английского бульдога?...
К
Компьютеры-и-электроника
08.07.2022
Как построить боевого робота класса Antweight...
О
Образование-и-коммуникации
18.11.2021
Как правильно раскладывать числа: краткое руководство для начинающих...
К
Кулинария-и-гостеприимство
11.05.2021
Простой и вкусный рецепт шоколадных конфет без лишнего хлопота...
К
Кулинария-и-гостеприимство
17.08.2021
Как заказать кофе в Макдональдсе: простое руководство для настоящих любителей кофе...
К
Компьютеры-и-электроника
06.09.2021
Как проверить файл подкачки в Linux: все, что вы должны знать...
Ф
Финансы-и-бизнес
01.02.2020
Как купить марки, не выходя из дома: советы и рекомендации...
И
Искусство-и-развлечения
07.01.2021
Как скрыться: лучшие способы оставаться невидимым...
К
Компьютеры-и-электроника
25.08.2022
Как удалить iSearch AVG - подробная инструкция...
Новые ответы от MOGZ: Информатика
Elina123671
11.01.2021
Втаблице запросы к поисковому серверу. для каждого запроса указан его код – буква от а до г. расположите коды запросов слева направо в порядке возрастания количества страниц,...
Katuhaazaza
01.05.2020
При каких признаков можно дать имя объекту...
ffgdfsdf
01.05.2020
Есть кучка из 769 орехов. за одну операцию можно любую из уже имеющихся кучек разделить на две. если при этом получатся две неравные кучки, то взимается штраф 1 рубль. какова...
Marymol2005
01.05.2020
Даны значения 3 переменных abc, найти большее значение ....
hopelless2124
08.05.2023
решите уравнения: 1) x: 5,8 = 365; 3) x : 8,1 = 0,15; 2) 0,016 - 0,25; 5) 7,5 • 0,0204; 8) 4,3 • 0,062; 2) x : 8,4 = 2,3; 4) x : 0,22 4,9. 3) 0,008 • 2,2; 6) 0,07 - 0,61; 9) 7,04...
Nasty2Tyan3
13.10.2021
Для кодирования одного цвета палитры служит двоичный код 0010 сколько цветов содержит палитра?...
gebatible777
08.03.2021
Как посчитать стипендию в Excel е, с такими условиями: Размер стипендии определяется по правилу: если студент получил хотя бы одну двойку, то стипендия не назначается, если получил...
frolikoffgrigory
20.02.2023
Выбери арифметический операциии и функций для степени числа. Верных ответов:2 pow(x,y). х*у. х**у. аbs(х)...
ElenaComarova
14.11.2021
Желательно расписать все, т.к. нужно будет все объяснять...
mazasa128
07.01.2022
Информатика 8 класс С какой целью при построении графика вызывается окно *Выбор данных?*...
MOGZ ответил
Make a list of places you would like to see in London. 7 предложений про Гайд...
Очень От Можно с решением?...
Характеристика Андрій Недоля за сестрою з тексту ...
Какие изменения произошли в сферах жизни государств в X-XIII вв....
Вычислите, ответ запишите в виде a/b...
Подбери существительное 2 склонения с безударным падежным окончанием. Письмо...
Шылау мен еліктеу сөздерін қосып түрлендіру Барма беріңдерш құрсн ...
какая болччка ко мне прицепилась??? У меня сестра болела ветрянкой 2 недели,...
Мәтіннен жекіру одағайын тап. Данияр, сен Ұлы Жібек жолы туралы білесің бе?...
Как сложить я милыш в шкёле ючусь...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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.