// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadlnString('IP=').ToWords('.'); if a.Length<>4 then Writeln('Адрес - это четыре числа, разделенные точками') else begin var n:integer; foreach var c in a do begin if not TryStrToInt(c,n) then begin Writeln(c,'- не целое число'); exit end else if n>255 then begin Writeln(c,' превышает 255'); exit end; end; Writeln('IP-адрес корректен') end end.
Примеры IP= 128.16.35.a4 a4- не целое число
IP= 240.127.56.340 340 превышает 255
IP= 34.56.42,5 Адрес - это четыре числа, разделенные точками
i = 100: Мы присвоили значению i число 100 потому, что нам нужно начать с самого первого трёхзначного числа.
i mod 5==0: mod и % - это остаток от деления. Нам нужны все числа, которые при делении на 5 не оставляли остатка.
Вывод i: (у меня в блок-схеме опечатка, поставлена n, но должна стоять i) Числа без остатка выводятся, числа с остатком пропускают этот шаг.
i=i+1: мы увеличиваем нашу 100 на единицу, присваивая ей новое значение (т.е. 101, 102 и т.д.)
i<999: так мы постепенно увеличиваем i до последнего трёхзначного числа. Если i меньше 999, то программа возвращается с новым значением на проверку остатка от деления. Если i больше 999, то цикл и программа заканчивается.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('IP=').ToWords('.');
if a.Length<>4 then
Writeln('Адрес - это четыре числа, разделенные точками')
else begin
var n:integer;
foreach var c in a do begin
if not TryStrToInt(c,n) then begin
Writeln(c,'- не целое число'); exit end
else
if n>255 then begin Writeln(c,' превышает 255'); exit end;
end;
Writeln('IP-адрес корректен')
end
end.
Примеры
IP= 128.16.35.a4
a4- не целое число
IP= 240.127.56.340
340 превышает 255
IP= 34.56.42,5
Адрес - это четыре числа, разделенные точками
IP= 128.0.0.255
IP-адрес корректен
ответ C#:
double i=100;
do
{
if (i % 5 == 0)
{
Console.WriteLine("i = " + i);
}
i++;
}
while (i < 999);
Console.ReadKey();
Объясняю блок-схему:
i = 100: Мы присвоили значению i число 100 потому, что нам нужно начать с самого первого трёхзначного числа.
i mod 5==0: mod и % - это остаток от деления. Нам нужны все числа, которые при делении на 5 не оставляли остатка.
Вывод i: (у меня в блок-схеме опечатка, поставлена n, но должна стоять i) Числа без остатка выводятся, числа с остатком пропускают этот шаг.
i=i+1: мы увеличиваем нашу 100 на единицу, присваивая ей новое значение (т.е. 101, 102 и т.д.)
i<999: так мы постепенно увеличиваем i до последнего трёхзначного числа. Если i меньше 999, то программа возвращается с новым значением на проверку остатка от деления. Если i больше 999, то цикл и программа заканчивается.