Лучший ответ
-
1 0
lame 6 (13580)3725 15 лет
1)
var A,B,C,D:integer;
begin
D:=0;
writeln('vvedite 3 4isla 4erez probel(Naprimer: 5 10 30)');
ReadLn(A, B, C);
if A mod 5 = 0 then Inc(D,A);
if B mod 5 = 0 then Inc(D,B);
if C mod 5 = 0 then Inc(D,C);
writeln('summa 4isel kratnije 5-ti: ',D);
readln;
end.
2)
var A,B,C,D:integer;
begin
D:=0;
writeln('vvedite 3 4isla 4erez probel(Naprimer: 5 10 30)');
ReadLn(A, B, C);
if (A>=3) and (A<=10) then Inc(D,A); // проверка что число лежит в интервале [3;10]
if (B>=3) and (B<=10) then Inc(D,B);
if (C>=3) and (C<=10) then Inc(D,C);
writeln('summa 4isel v intervale ot 3 do 10(s 10 vklu4itelno): ',D);
readln;
Ответы
-
-
-
-
-
-
0 0
Женя (35) 7 (39320)541142 15 лет
programm;
var a,b,c:integer;
d:=0;
begin;
writeln "vvedite A";
read(a);
writeln "vvedite B";
read(b);
writeln "vvedite C";
read(c);
if a mod 5 = 0 then inc(d, a);
if b mod 5 = 0 then inc(d, b);
if c mod 5 = 0 then inc(d, c);
writeln('Na 5 deljatsja: ',D);
else
writeln "owibka";
readln;
end. -
1 2
Kukish 7 (63117)641153 15 лет
бред какой...мы на информатике писали прогу, которая площадь криволинейной трапеции считает, а тут фуфел такой...сама справишься, если захочешь... задание для детского сада...ну а если разбираться сама не хочешь, то и нафиг тогда...знач не очень нужно