Решение во вложении.
<em><u>Ответ:</u></em>
Александр - Иркутск
Николай - Рязань
Денис - Уфа
Михаил - Саратов
Геннадий - Тюмень
Семен - Воркута
Var c: Char;
s: String;
i,k,p: Integer;
Begin
ReadLn(c); {Чтение заданного символа}
ReadLn(s); {Чтение заданного слова}
p:= Pos(c,s); {Определяем позицию символа}
If (p=0) Then {Функция вернёт 0, если символ не будет найден}
WriteLn('Такого символа в слове нет.')
Else {Если символ есть, то ...}
Begin
WriteLn('Указанный символ расположен на позиции: ',p);
k:= 0; {k хранит количество вхождений}
p:= Length(s); {p хранит длину строки(слова)}
For i:=1 To p Do {Пробегаем по всем символам слова}
If (s[i]=c) Then inc(k); {Если символ совпадает, увеличиваем на 1 переменную k}
WriteLn('Количество вхождений данного символа: ',k);
End;
End.
Работает "из коробки", ничего делать не нужно.
/* C++ 11 */
#include <iostream>
using namespace std;
int main()
{
char answer;
const char correct = 'b';
cout << "Введите ваш ответ (a, b, c): ";
cin >> answer;
switch (answer) {
case correct:
cout << "Правильно!" << endl;
break;
default:
cout << "Неправильно!" << endl;
break;
}
}
3)
var x, y, min, max: real;
label M1;
begin
write('x=');
readln(x);
write('y=');
readln(y);
If x>y then
begin
min:=x;
max:=y;
goto M1;
end
else
min:=y;
max:=x;
goto M1
M1: writeln('min=', min:8:3, ' max=', max:8:3);
end.
2) var a, b, c: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
If (a=b) and (b=c) then
begin
writeln('Треугольник равносторонний');
end
else
writeln('Треугольник неравносторонний');
end.
1) var a, b: real;
begin
write('Допустимая скорость =');
readln(a);
write('Скорость водителя =');
readln(b);
If (a=b) or (a>b) then writeln('Водитель не превысил скорость');
If a<b then writeln('Водитель превысил скорость');
end.
Я надеюсь, что я правильно поняла задание первой и второй задачи о:
А)60*80*5/1024=23 Кб
б) при 64-символьном алфавите символ весит 6 бит.
60*80*5*6бит/8бит=18000бит