Запишите на языке паскаль, си или бейсик логическое выражение , истинное при выполнении условия : заданное двузначное натуральнео число а делится на 3, а цифра 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 Если синтаксис знаешь, то напишешь прогу, если нет.. то жди ответа других.
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.
Пример: нечетное предложение больше четного нчтное прдложние больше четнго
(a>9) and (a<100) and (a mod 3 = 0) and (a div 10<>3) and (a mod 10 <>3)