Решить по паскалю 1. задан текст. удалить из текста знаки («») 2.дан текст, в котором слова отделяются пробелами, в конце стоит точка. поменять в тексте первое и последнее слово местами.
Var S:string; i,N:integer; begin Readln(S); N:=length(S); i:=i+1; While i<=n do begin If (S[i]='«') or (S[i]='»') then begin Delete(S,i,1); i:=i-1; n:=n-1; end; i:=i+1; end; Writeln(S); end.
var S,A,B:string; i,k,l,N:integer; begin Readln(S); N:=length(S); For i:=1 to N do If S[i]=' ' then begin k:=i; break; end; For i:=N downto 1 do If S[i]=' ' then begin l:=i; break; end; A:=Copy(S,1,k-1); B:=Copy(S,l+1,N-l-1); Delete(S,l,N-k); Delete(S,1,k); S:=B+' '+S+' '+A+'.'; Writeln(S); end.
Var a, b, sum: integer; readln(a); readlb(b); if ((a div 10 = 6) or (a mod 10 = 6)) and ((b div 10 = 6) or (b mod 10 = 6)) and ((a < 100) and (a > 9) and (b > 9) and (b < 100)) then sum := a + b; else writeln("в числах нет 6 или они не двузначные"); writeln(sum);
кажется должно быть понятно(это на паскале, но я его не помню и может быть ошибка где-нибудь. а так просто объяснение: вводим с клавиатуры 2 числа, заводим переменную для суммы проверяем есть ли в числах цифра 6 и не двузначное ли оно если все ок, то считаем и выводим сумму
1. Что может быть опасным для здоровья при работе в компьютерном классе? ✔ большая нагрузка на зрение ✔ повышенная нагрузка на суставы кистей ✔ электрический ток излучение от батарей отопления излучение от мониторов 2. Какие правила надо выполнять при работе в сети Интернет? смотреть только сайты на русском языке не скачивать файлы и программы ✔ не запускать программы, полученные из Интернета не использовать электронную почту ✔ не изменять настроек браузера 3. Какие программы можно запускать на компьютере? ✔ которые относятся к теме урока ✔ любые с разрешения учителя все, кроме игровых программ все, кроме программ с вирусами все, кроме программ из Интернета 4. Какое напряжение в электрической сети компьютерного класса? 380 вольт 36 вольт ✔ 220 вольт 127 вольт 5 вольт 5. Почему расстояние от глаз до экрана монитора должно быть не менее 60-70 см? на этом расстоянии лучше всего видно из-за электромагнитного излучения из-за радиоактивного излучения ✔ чтобы не искривить позвоночник ✔ чтобы не утомлять глаза 6. Почему нельзя входить в кабинет информатики в верхней одежде и грязной обуви? ✔ можно испачкать пол и мебель учитель не переносит неаккуратности ✔ пыль и грязь засасываются в компьютеры уборщица не может часто убирать кабинет ✔ пыль вредит здоровью учеников и учителя 7. Сколько времени в день можно работать за компьютером ученикам средней и старшей школы? 20 минут ✔ 1,5 часа около 4 часов около 6 часов без ограничений 8. Какие требования должен выполнять ученик старше 14 лет, чтобы его можно было допускать к работе на компьютере? ✔ пройти инструктаж по технике безопасности ✔ расписаться в журнале инструктажа исправить все неудовлетворительные оценки принести разрешение от родителей ✔ соблюдать указания учителя 9. Что запрещается делать ученику в компьютерном классе? нажимать на клавиши ✔ отсоединять и подсоединять устройства компьютера ✔ включать напряжение сети использовать наушники ✔ разбирать и ремонтировать компьютеры 10. Что можно делать только с разрешения учителя? ✔ брать со стола учителя задание ✔ включать и выключать компьютер списывать на флэш-диск свои работы проверять флэш-диски антивирусами ✔ работать на чужом компьютере 11. Что делать, если не работает мышь или клавиатура? ✔ сообщить учителю отсоединить и присоединить снова разъём устройства перезагрузить компьютер выключить компьютер 12. Что делать при появлении запаха гари, дыма или странного звука из компьютера? ✔ сообщить учителю выключить компьютер перезагрузить компьютер продолжать работу попытаться устранить неисправность 13. Какие правила нужно выполнять при работе за компьютером? ✔ не работать вдвоём за одним компьютером ✔ линия взгляда должна быть направлена в центр экрана ✔ не класть тетради и учебники на клавиатуру ✔ не кататься на креслах по кабинету ✔ не перезагружать компьютер без разрешения 14. В каких случаях не следует выполнять работу на компьютере? ✔ если плохо себя чувствуешь если не подготовился к работе если не хочется ее выполнять ✔ если компьютер неисправен ✔ если компьютер выключен 15. Что делать, если компьютер, за которым вы обычно работаете, выключен? включить компьютер самостоятельно ✔ сообщить учителю о проблеме не выполнять работу вообще перейти за другой свободный компьютер выполнять работу вместе с кем-нибудь 16. Что делать при пожаре в компьютерном классе? ✔ под руководством учителя покинуть кабинет вызвать пожарную охрану использовать огнетушитель быстро выбежать из кабинета выключить компьютер и выйти из кабинета
i,N:integer;
begin
Readln(S);
N:=length(S);
i:=i+1;
While i<=n do
begin
If (S[i]='«') or (S[i]='»') then
begin
Delete(S,i,1);
i:=i-1;
n:=n-1;
end;
i:=i+1;
end;
Writeln(S);
end.
var S,A,B:string;
i,k,l,N:integer;
begin
Readln(S);
N:=length(S);
For i:=1 to N do
If S[i]=' ' then
begin
k:=i;
break;
end;
For i:=N downto 1 do
If S[i]=' ' then
begin
l:=i;
break;
end;
A:=Copy(S,1,k-1);
B:=Copy(S,l+1,N-l-1);
Delete(S,l,N-k);
Delete(S,1,k);
S:=B+' '+S+' '+A+'.';
Writeln(S);
end.