Pascalabc, составьте программу, которая введенное с клавиатуры слово выводит в конце строки, а затем по буквам, начиная с первой, переставляет в начало строки.

267

338

Посмотреть ответы 2

Ответы на вопрос:

Арбузярик

Информатика

4,5(29 оценок)

)напиши куда слово встовлять(вначало, вконец, ; program z2; var s,s1: string; a: integer; begin write('введите слово: '); read(s1); write('введите строку: '); read(s); s: =s+' '; a: =length(s); writeln(a); insert(s1,s,a+1); writeln('преобразованная строка: ',s); end. 2) program z1; var s: string; i,kol: integer; begin writeln('введите строку'); read(s); kol: =0; for i: =1 to length(s) do if (s< > ' ')and(s< > '1')and(s< > '2')and(s< > '3')and (s< > '4')and(s< > '5')and(s< > '6')and(s< > '7')and (s< > '8')and(s< > '9')and(s< > '0') then inc(kol); writeln(kol); end.

msflower05

Информатика

4,7(43 оценок)

Нарушением условия является случай, когда у мальчика (м) или у девочки (д) оба соседа того же пола, следовательно недопустимой является расстановка или . отсюда возникает условие, что количество м и д не могут отличаться более, чем вдвое, т.е. 0.5 ≤ x/y ≤ 2 программа должна учитывать особенности реализации целых и вещественных чисел в эвм, а также особенности выполнения операции деления и сравнения. var x, y: integer; b: boolean; f: text; begin assign(f,'input.txt'); reset(f); readln(x,y); close(f); if x > y then b : = (x / y < = 2) else b : = (y / x < = 2); if b then writeln('yes') else writeln('no') end. тестовое решение: yes