№ 1. Записать адрес компьютера и номер сети, если его ip – адрес задан 192.168.16.7 с маской ввода 255.255.255.0 № 2. Записать адрес компьютера и номер сети, если его ip – адрес задан 204.197.117.47 с маской ввода 255.255.224.0
№ 3 Сколько компьютеров может быть в сети с маской ввода. 255.255.255.248 ?
#include - подключение библиотеки.
using namespace std; - объявление пространства имен
void swap(int x, int y, int z) - определение функции swap, которая ничего не возвращает, с принимаемыми аргументами типа int. Служит для обмена значений
{} - операторные скобки
int temp - объявление локальной переменной temp.
if(x > y ) - Если x > y, мы меняем значения x и y. temp - промежуточная переменная для хранения значения.
if(x > z) - Если x > z, мы меняем значения x и z. temp - промежуточная переменная для хранения значения.
if(y > z) - Если y > z, мы меняем значения y и z. temp - промежуточная переменная для хранения значения.
cout << x << " " << y << " " << z << "\n"; - вывод переменных x y z через пробел. \n - перевод каретки на новую строку.
}
int main() - главная функция, которая начинает свое выполнение при запуске
{
int x = 2, y = 6, z = 5; - определение переменных x y z
swap(x, y, z); - вызываем функцию и передаем ей значения x y z
system("pause >> null"); - передача команды "pause >> null" командному процессору. Тормозим выполнение программы. >> null означает, что не будет ничего написано. (Без этого будет писать, в роде: Для продолжения нажмите")
return 0; - возвращаемое значение
}
1. Встречен repeat но нет until
2. Есть 3 begin, но только 2 end
3. Константа N лишняя. Нигде в программе не используется
После исправления ошибок программа с краткими комментариями будет выглядеть так:
program Zinaida;
var
i, k: integer;
inString: String;
isize, count: integer;
begin
write('String: ');
readln(inString); //ввод текста
k := length(instring); //длина текста
if instring[k] = '.' then dec(k);
//цикл для поиска пробелов и
//слов с длиной 5 символов
for i := 1 to k do
begin
if instring[i] <> ' ' then inc(isize);
if (instring[i] = ' ') or (i = k) then
begin
//если длина слова = 5 то увеличиваем count на 1
if isize = 5 then inc(count);
isize := 0;
end;
end;
write('Количество слов из пяти букв', count);
end.