Ответ:
1. Лазерные и струйные.
2. CD - диски!?
3. От количества оперативной памяти и ядров.
4. Гигагерцы
Program konf;
var a, b, summ: real;
begin
a := 1.2;
readln(b);
while a < 2 do
begin
summ := a * b;
writeln(summ, ' za ', a);
a := a + 0.2
end;
<span>end.</span>
1)Проверь сдачу,не отходя от кассы,
Смотреть под ноги,
Спрашивать кто там?-прежде чем открывать дверь.
2)Блок-схема линейного алгоритма.(разветвляющий алгоритм)
<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>
Введите строку: мама, мама, что я буду делать, мама, мама, как я буду жить?
Что найти? мама
Чем заменить? папа
папа, папа, что я буду делать, папа, папа, как я буду жить?