Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ученик22826
02.05.2021 06:58 •
Информатика
Нужно решить данную задачу с python.
Показать ответ
Ответ:
edynorozhok
19.07.2020 02:52
Program Ves;
Var a1,a2,a3,a4,t1,t2,t3,p,d,vp,b: Integer;
begin
writeln ('программа вычисляет норму для данного ученика');
writeln ('введи массу учебника 1');readln (a1);
writeln ('введи массу учебника 2');readln (a2);
writeln ('введи массу учебника 3');readln (a3);
writeln ('введи массу тетради 1');readln (t1);
writeln ('введи массу тетради 2');readln (t2);
writeln ('введи массу тетради 3');readln (t3);
writeln ('введи массу пенала');readln (p);
writeln ('введи массу дневника');readln (d);
writeln ('введи массу портфеля');readln(vp);
b:=a1+a2+a3+a4+t1+t2+t3+p+d+vp;writeln ('общая масса портфеля= ' b);
if (b<=5) then writeln ('норма') else writeln ('ненорма');
readln;
end.
0,0
(0 оценок)
Ответ:
богдан254
08.07.2020 21:24
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, а наоборот
0,0
(0 оценок)
Популярные вопросы: Информатика
valeriia8
25.03.2021 05:11
Исполнитель Робот действует на клетчатом поле, между соседними клетками которого могут стоять стены. Робот передвигается по клеткам поля и может выполнять следующие...
KroJlick20178
31.05.2020 08:02
Анализ истинности высказывания с числами (Если можно, напишите пояснения!)1. Напишите наименьшее число x, для которого ложно высказывание: (x 42) ИЛИ (x не делится...
Merlin33
01.02.2021 20:17
Объем видеопамяти составляем 0,5мбайт, размер изображения – 400х300 точек. сколько цветов использовалось для построения изображения?...
andrew22091996
28.05.2021 16:05
Botga savolni ayting keyin odamimiz sizga keyinroq javob beradi faqat botni ochirib yubormang Administrator @FDF_Blogger https://t.me/Savolingizni_bot Yoki @Savolingizni_bot...
DEM0KRAT
11.06.2020 07:29
очень надо НЕ большое сообщение ....
didi20023
25.08.2022 02:49
Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите наибольшее и запишите его в ответе в десятичной системе счисления. 2816 418...
лейла20032
22.03.2020 19:05
найти кратчайшее расстояние между пунктами и ....
a24027679
11.08.2022 01:26
Пароль к сейфу состоит из букв латинского алфавита, расположенных в порядке возрастания чисел, соответствующих этим буквам: А=101112, В=1114, С=358, D=1B16. Восстановите...
ayla678
07.06.2020 03:16
Составьте блок-схему по следующему условию. по результатам Летних олимпийских игр спортсменам общественность приготовила хорошие подарки (48 шт.). Необходимо их...
Limon2601
17.03.2023 12:46
в прямокутному трикутнику АВС кут С = 90 градусів, кут А =40 градусів. навколо трикутника описано коло з центром О. знайти кут АОС...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a1,a2,a3,a4,t1,t2,t3,p,d,vp,b: Integer;
begin
writeln ('программа вычисляет норму для данного ученика');
writeln ('введи массу учебника 1');readln (a1);
writeln ('введи массу учебника 2');readln (a2);
writeln ('введи массу учебника 3');readln (a3);
writeln ('введи массу тетради 1');readln (t1);
writeln ('введи массу тетради 2');readln (t2);
writeln ('введи массу тетради 3');readln (t3);
writeln ('введи массу пенала');readln (p);
writeln ('введи массу дневника');readln (d);
writeln ('введи массу портфеля');readln(vp);
b:=a1+a2+a3+a4+t1+t2+t3+p+d+vp;writeln ('общая масса портфеля= ' b);
if (b<=5) then writeln ('норма') else writeln ('ненорма');
readln;
end.
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, а наоборот