Задания школьного тура олимпиады по информатике в 9 – 10 – 11 классе 2010 – 2011 учебный год Задача №1. Найти наибольшее целое число из четырех введенных с клавиатуры. Решение задачи №1
Program n1; Uses Crt; var x,y,z,w:integer; begin writeln('Введите четыре целых числа'); write('x=');readln(x); write('y=');readln(y); write('z=');readln(z); write('w=');readln(w); if x < y then x := y; if x < z then x := z; if x < w then x := w; writeln('Максимальное число = ', x); end.
Задача №2. Написать программу, которая будет менять местами два введенных с клавиатуры слова. Слова разделены пробелом.
Тест. Введено «Иван Петров», результат «Петров Иван». Решение задачи №2. Решение, предложенное авторами олимпиады.
Program n2; Uses Crt; var str, str2:string; i:integer; begin writeln('Введите строку символов'); readln(str); for i := 1 to length(str) do if str[i] = ' ' then begin str2 := copy(str,1,i-1); delete(str,1,i); end; writeln('Итоговая строка - ',str + ' '+ str2); readln; end.
Мой вариант
Program n2; Uses Crt; var str,str1, str2:string; i:integer; begin write('Введите строку символов');readln(str); i:=1; while str[i]<>' ' do i:=i+1; str1:=copy(str,1,i); str2:=copy(str,i,length(str)); writeln('Итоговая строка - ',str2 + ' '+ str1); readln; end.
Задача №3. Подсчитайте, сколько слов во введенном предложении начинается с буквы «w» . Решение задачи №3 Program n3; Uses Crt; var str:string; x ,i:integer; begin writeln('Введите предложение'); readln(str); x:=0; for i:=1 to length(str) do if (str[i]=' ') and (str[i+1]= 'w')then x:=x+1; if str[1]='w' then x:=x+1; writeln(‘Количество слов в предложении начинающихся буквой «w» = ‘ , x); end.
Задача №4. В массиве А[1..n], состоящем из целых чисел, найдите самую длинную последовательность идущих подряд нулей. Укажите начало и конец. Решение задачи №4
program n5; uses crt; var a:array [1..10]of integer; i,lmax,l,flag,nac,max_nac,con,max_con:integer; begin writeln('Введите элементы массива :) ; for i:=1 to 10 do read (a[i]) ; for i:=1 to 10 do write (a[i],' ' ); writeln; lmax:=0; l:=1; flag:=0; nac:=0; con:=0; if a[1]=0 then nac:=1; for i:=1 to 9 do begin if (a[i+1]<>0) and (a[i]=0)then con:=i; if (a[i]=a[i+1]) and (a[i]=0) then begin if i>=2 then if (a[i-1]<>0) and (a[i]=0) then nac:=i; l:=l+1; flag:=1; end else begin if l>lmax then begin lmax:=l; max_nac:=nac; max_con:=con; end; l:=1; end; end; if l>lmax then begin lmax:=l; max_nac:=nac; max_con:=i+1; end;
if flag=0 then writeln('0-нет') else begin writeln('самая длинная последовательность 0 =',lmax); writeln('начало 0 =',max_nac); writeln('конец 0 =',max_con); end;
end.
| 
