Вспомните назначение клавиши shift. (если нужно проведите эксперимент на компьютере). заполните пропуски. если нажать на клавишу с изображением буквы при нажатой клавише shift, то будет выведена буквамой ответесли нажать на клавишу с изображением цифры при нажатой клавише shift, то будет введен символ? )мой ответ2. выясните, что делает клавиша caps lock при наборе текста. закончите фразы. если нажать на клавишу caps lock, на клавиатуре загорается индикатор с мой ответесли еще раз нажать на клавишу caps lock, этот мой ответесли на клавиатуре горит индикатор caps lock, то при нажатии на клавиши с изображением букв мой ответесли теперь нажать на ту же буквенную клавишу при нажатой клавише shift, будет введена .мой ответ3. создайте новый документ и наберите несколько слов. выясните назначение комбинации клавиш ctrl + zмой ответ4. куда перемещается курсор при нажатии клавиши home? мой ответ5. куда перемещается курсор при нажатии клавиши end? мой ответ6. при нажатии клавиши pageup (pgup) мы мой ответ7.при нажатии клавиши pagedown (pgdn) мы мой ответ8. выясните назначение клавиши f1мой ответ9. введите через запятую (сначала первое слово, затем второе)
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End.
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами
Var
f,s:text;
st,sp:string;
i:integer;
c:char;
begin
assign(s,'text1.txt');
reset(s);
while not Eof(s) do
begin;
readln(s,sp);
st:=st+sp+chr(10)+chr(13);
end;
close(s);
for i:=1 to length(st) div 2 do
begin
c:=st[i];
st[i]:=st[length(st)-i+1];
st[length(st)-i+1]:=c;
end;
assign(f,'text.txt');
rewrite(f);
write(f,st);
close(f);
end.
Текст в файле text1.txt:
Simple text
1And another simple text
2New text
Текст в файле text.txt:
txet weN2
txet elpmis rehtona dnA1
txet elpmiS