Var a,b,s,i:integer;
begin
writeln('a, b:');
readln(a,b);
s:=0;
for i:=a to b do
if i mod 4=0 then s:=s+i;
writeln('s = ',s);
end.
Пример:
<span>a, b:
20 100
s = 1260</span>
var
sum, temp, i: integer;
sr: real;
d_n: array[1..7] of string;
begin
sum := 0;
d_n[1] := 'Понедельник>>'; d_n[2] := 'Вторник>>'; d_n[3] := 'Среда>>'; d_n[4] := 'Четверг>>'; d_n[5] := 'Пятница>>'; d_n[6] := 'Суббота>>'; d_n[7] := 'Воскресенье>>';
for i := 1 to 7 do
begin
write(d_n[i]);
readln(temp);
sum += temp;
end;
writeln(sum / 7);
end.
Program p1;var n:integer;begin Writeln ('Введите число');Readln (n);if n>0 Then a:=(n*3) and (n mod 2=0) Else; Writeln (n);Readln;End.
не точно нужно дополнить,но что-то типо этого
Ну практически во всех операционных системах имеется одноименная команда ping. Вводится эта команда в терминале, эмуляторе терминала, консоли, командной строке и т.п. Пример:
PING 192.168.1.24 (192.168.1.24): 56 data bytes
64 bytes from 192.168.1.24: icmp_seq=0 ttl=64 time=2.035 ms
64 bytes from 192.168.1.24: icmp_seq=1 ttl=64 time=0.581 ms
64 bytes from 192.168.1.24: icmp_seq=2 ttl=64 time=0.725 ms
64 bytes from 192.168.1.24: icmp_seq=3 ttl=64 time=0.561 ms
У меня в сети нет хоста с адресом
<span>192.168.104.1, поэтому продемонстрировал работу программы на имеющемся хосте.
Если хоста с таким адресом нет или он не отвечает, то получим такой вывод работы программы:
PING 192.168.104.1 (192.168.104.1): 56 data bytes
Request timeout for icmp_seq 0
Request timeout for icmp_seq 1
Request timeout for icmp_seq 2
Request timeout for icmp_seq 3
Request timeout for icmp_seq 4</span>