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

Сор по информатике 8 клас 3 четверть мектепе онлайне​

Показать ответ
Ответ:
Я не знаком особо с паскалем, но могу направить на путь истинный :b
Кароче..
Подсчет количества:
если билет счастливый count++;
(все логично)
Но как определить счастливый ли билет:
Припустим у нас номер билета лежит в массиве: ticket, то
if ((strval(ticket[0]) + strval(ticket[1] + strval(ticket[2])) == (strval(ticket[3]) + strval(ticket[4]) + strval(ticket[5])))
count++;

strval - преобразовнаие из строки в число. string --> integer
Если синтаксис знаешь, то напишешь прогу, если нет.. то жди ответа других.
0,0(0 оценок)
Ответ:
авк5кеап6567нг67
авк5кеап6567нг67
27.05.2020 14:27
1)
var s:string; i:integer;
begin
readln(s);
for i:=1 to length(s) do
 if (i mod 2=1)and(s[i]='н') then writeln(i,' - н');
end.

Пример:
Дано предложение. Вывести "столбиком" все его буквы н, стоящие на нечетных местах
3 - н
53 - н
67 - н

2)
var s,s1,s2:string;
begin
s:='вертикаль';
s1:=s[4]+s[5]+s[3];
s2:=s[1]+s[2]+s[4]+s[6]+s[7];
writeln(s1,' ',s2);
end.

Результат:
тир ветка

3. Замечание. Предполагается, что слова в предложениях отделяются друг от друга одним пробелом.
3 а)
var s:string; i,k:integer;
begin
readln(s);
k:=0;
for i:=1 to length(s) do
 begin
 if (s[i]='а')and(k=0) then
  begin s[i]:='о'; k:=1; end;
 if s[i]=' ' then k:=0;
 end;
writeln(s);
end.

Пример:
Напечатать все его слова, предварительно преобразовав каждое из них по правилу
Нопечатать все его слово, предворительно преоброзовав кождое из них по провилу

3 б)
var s,sl,s_new:string; i:integer;
begin
readln(s);
s:=s+' ';
s_new:=''; sl:='';
for i:=1 to length(s) do
 if s[i]<>' ' then sl:=sl+s[i]
 else begin
  while pos(s[i-1],sl)>0 do delete(sl,pos(s[i-1],sl),1);
  s_new:=s_new+sl+s[i-1]+' ';
  sl:='';
 end;
writeln(s_new);
end.

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