Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
hiset37281
18.01.2021 17:10 •
Информатика
Что моделирует перед тем ,как запустить в производства новый самолет ?
Показать ответ
Ответ:
nurkenalmazbek
17.07.2021 11:06
Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
0,0
(0 оценок)
Ответ:
olgasuponeva
15.08.2021 10:04
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 оценок)
Популярные вопросы: Информатика
aruka00000
12.06.2021 19:55
На компьютере ученика в папке «7 класс» есть файлы, которые он хочет сохранить в облачном хранилище («в облаке»). Вычисли, сколько места в Кб займут файлы из папки,...
yliana63
03.04.2020 23:05
Решите в паскале. если можно с блок - схемой. дана последовательность чисел. вывести на экран все отрицательные числа....
pilotprofix
04.09.2020 16:17
мне очень ПРОГРАММА БУКВОЕД 5 КЛАСС...
artemumnov2
01.05.2020 23:06
Операции в реляционных базах данных: деление. Отношение A Фамилия Проверяемое предприятие Осипова | Алёнка Осипова | Берёзка Осипова | Максима Осипова | Красный Октябрь...
saenkolydmila
14.02.2022 19:04
Квадраты чисел из одних единиц выглядят красиво: 11^2=121, 111^2=12321, 1111^2=1234321. Напишите программу, которая будет выводить на экран число, равное квадрату числа,...
peindragneel11
16.03.2022 18:12
Виберіть зі списку команди, які можна віднести до циклу з параметром Рухатись 10 кроків Повторити 10 разів Якщо край, повернути...
shifu90
30.10.2021 18:05
От 14014 до 49235 найти точку которая делится на 5 или 7 и не делится 6,11,13 Найти кол точек и максимальную из них...
vyglotov
05.07.2021 07:05
Задача Питон. Рассматривается японская игра судоку. Игровое поле представляет из себя квадрат размером 9х9 клеток, на котором изначально расставлены некоторое количество...
dimonatomp0ce79
11.04.2023 18:14
На сколько вы оцениваете отдых от 1 до 5: 3 Что вам не понравилось? Выпечка в столовой 3-Выпечка в столовой — Сбор негативных отзывов важная задача. По ним можно понять,...
Алтынбек05
13.07.2022 15:39
PYTHON Класс Phone. а) Создайте класс Phone, который содержит переменные number, model и weight. б) Создайте три объектаэтого класса. в) Выведите на консоль значения...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
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, а наоборот