I тур 2 этапа дистанционной олимпиады по информатике
Выполнила
Фамилия Мухаметова
Имя Эльнара
Отчество Ильдаровна
Класс 7 (седьмой)
Школа СОШ №4 г. Туймазы
Город Туймазы
Район Туймазинский
ФИО учителя
Задание №1
uses crt;
var i, k:integer;
n, s:string;
begin
clrscr;
write('Vvedite chislo = ');
readln(n);
for i:=length(n) downto 1 do
s:=s+n[i];
if n=s then writeln('chislo yavlyaetsa polindromom') else
write('chislo ne yavlyaetsa polindromom');
readkey;
end.
Блок схема
Задание №2
uses crt;
var s:string;
i, x:integer;
begin
clrscr;
write('vvedite stroku = ');
read(s);
for i:=length(s) downto 1 do
begin
delete(s, i,1);
break;
end;
for i:=1 to length(s) do
if not (s[i] in ['0'..'9']) then begin
writeln('stroka ne yavlyaetsa chislom');
readkey;
exit;
end;
val(s, x,i);
if x mod 3=0 then writeln('yavlyaetsa chislom kratnoe 3') else writeln('ne yavlyaetsa chislom kratnoe 3');
readkey;
end.
БЛОК СХЕМА
Задание №3
uses crt;
const
znaki:array [1..7] of char = ('.',',','?',':',';','!','-');
var i, j:integer;
s:string;
begin
clrscr;
write('vvedite stroku s tochkoyi= ');
readln(s);
for i:=1 to 7 do
for j:=1 to length(s) do
if znaki[i]=s[j] then delete(s, j,1);
writeln(s);
readkey;
end.
Блок схема
Задание №4
uses crt;
var s, s2:String;
i, j:integer;
begin
clrscr;
write('vvedite stroku = ');
readln(s);
for i:=1 to length(s) do
begin
for j:= 1+i to length(s) do
begin
if s[i]=s[j] then delete(s, j,1)
end;
end;
writeln('kolvo ispolzuemih simvolov= ',length(s));
readkey;
end.
БЛОК СХЕМА
Задание №5
uses crt;
var n, i,j, h:integer;
BEGIN
write('Введите кол-во кубиков = ');
readln(n);
h:=n;
for i:=1 to n do
begin
if h-i>=0 then begin h:=h-i; j:=j+1; end else begin writeln('Количество лесинок = ',j); readkey; exit; end;
end;
END.
БЛОК СХЕМА
