Легкая программа.составить программу на турбо паскале: дана строка. сформировать новую строку из 2-й, 3-й, 4-й и последней букв.

300

500

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

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

kot292

Информатика

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

Var s1,s2: string; begin writeln('введите строку: '); readln(s1); s2: =s1[2]+s1[3]+s1[4]+s1[length(s1)]; writeln(s2); end. пример: введите строку: программа рога

Зонтик17

Информатика

4,4(98 оценок)

1) program n1; var c,d,i: integer; p: real; begin readln(c,d); p: =1; for i: =c to d do if i mod 4=0 then p: =p*i; writeln(p); end. 2) program n1; var a,sum: integer; begin sum: =0; readln(a); sum: =(a mod 10)+(a div 100) +(a mod 100 div 10); if sum mod 2=0 then write('четная') else write('нечетная'); end.