В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
yfbft
yfbft
04.06.2020 07:54 •  Информатика

Значит доклад, 9 класс по инфе. Написать оригинально, кратко и аккуратно, НЕ списывать. Я проверю не списано ли. Ну по крайней мере не один в один Темы, которые нужно склеить в их порядке во что-то единое:
• Моделирование как метод познания
• Виды информационных моделей (достаточно перечислить)
• Написать определение графа, его элементов и виды графов

Если всё кошерно будет сделано и кратко укомпановано и не списано, то возможен чирик на киви.

Показать ответ
Ответ:
Vostafi
Vostafi
20.07.2020 12:16

Это без использования файлов

var spisok:array [word] of string; {объявляем массив для хранения фамилий}
n,i,k:word; {n - количество фамилий,i - вс переменная, k - количество фамилий в списке равных 8 или 9 буквам}

begin
write('Введите количество фамилий в списке n = ');readln(n);
for i:=1 to n do begin
write('Введите фамилию ',i,' :');
readln(spisok[i]);
if (length(spisok[i])=9) or (length(spisok[i])=8) then inc(k); {inc(k) - это тоже самое ,что k:=k+1; }
end;
writeln('Количество фамилий в списке состоящих из 8 или 9 букв = ',k);
end.

 

П.С. если вам потребуется,обработка конкретно через фаил напишите мне, так как в условии вы не указали точно через что!

 

 

0,0(0 оценок)
Ответ:
verchik1739
verchik1739
25.02.2020 02:51

var a,b,c:integer; стороны для треугольника
s,p:real;
begin
write('Введите сторону а = ');readln(a);
write('Введите сторону b = ');readln(b);
write('Введите сторону c = ');readln(c);
if ((a < b + c) or (b < a + c) or (c < a + b)) then begin проверка на существовании треугольника, а то как площадь получить если треугольника нет=)
p:=(a+b+c)/2; формула полупериметра 
s:=Sqrt(p*(p-a)*(p-b)*(p-c)); формула Герона для нахождении площади треугольника
writeln('Площадь треугольника равна s = ',s:0:4);
end else writeln('Треугольник не существует!');
end.

 

П.С. что не понятно постараюсь объяснить, но я думаю вы прекрасно во всем разберетесь;)

 

Во вложении блок схема

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота