<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:').ToLower;
var c:=ReadlnChar('Введите искомую букву:').ToLower;
Writeln('Буква встречается ',s.Where(a->a=c).Count,' раз(а)')
end.
<u>Пример</u>
Введите строку: А роза упала на лапу Азора
Введите искомую букву: а
Буква встречается 8 раз(а)
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите фразу:');
s.Replace('Ты','Я').Replace('ты','я').Println
end.
<u>Пример</u>
Введите фразу: Тыков ест тыблоко
Яков ест яблоко
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
var s1:=ReadlnString('Что найти?');
var s2:=ReadlnString('Чем заменить?');
s:=s.Replace(s1,s2);
s.Println;
end.
<u>Пример</u>
Введите строку: мама, мама, что я буду делать, мама, мама, как я буду жить?
Что найти? мама
Чем заменить? папа
папа, папа, что я буду делать, папа, папа, как я буду жить?
0 Д 00
1 Х 01
2 Р 10
3 О 11
4 В 100
01 11 10 11 100 11 00
Разбиваем на тройки: 011 110 111 001 100 (2) = 36714(8)
Хробак Морріса,Хробак Heartbleed,Хробак Sasser,Вірус WIN.CIH (Чорнобиль),Melissa.
Всі ,які згадала з минулих курсів. Сподіваюся,допомогла)
Program primer;
var a,b,s,m,d: integer;
Begin
ReadLn(a,b);
s:=a+b;
m:=a*b;
d:=a div b;
WriteLn(s);
WriteLn(m);
WriteLn(d);
End.
Пример:
48 15
<span>63
720
3</span>
Задание 1 ответ 9
c:=trunc(61/5=12.2)=12
a:=(61 mod (12+1=13) ) =9
Ответ 9
Задание 2 там грамматические ошибки где var там ввод переменных через запятую и где write через w и где read там также ввод переменных через запятую
Задание 3
1 ввод +
2 ввод +