что означает это строка if i mod 2<>0 then
5-9 класс
|
Если число i кратно двум.
если число I не делиться на 2 тогда ...
Другие вопросы из категории
-персональные компьютеры
-локальные сети предприятий, университетов и т.п
-большие супер компьютеры (например, мейфрейны)
-другие локальные сети
Хлопчик, що торгує на базарі газетами, заробляє
а
грн. від
продажу перших 100 газет.
На кожній з інших проданих газет він заробляє по
х
коп. Напишіть програму, яка визначає
заробіток за день хлопчика, якщо він продасть
у
газет (
у>100
).
Читайте также
uses crt;
var fl1,fl2:text;
i,n,v,a,b:integer;
Begin
clrscr;
assign(fl1,'input.txt');
assign(fl2,'output.txt');
reset(fl1);
readln(fl1,n);
v:=0;
for i:=1 to 1000000 do begin
if i>=10 then begin
a:=i div 10;
b:=i mod 10;
if (a mod 2<>0) and (b mod 2<>0) then v:=v 1;
end
else if i mod 2<>0 then v:=v 1;
if v=n then break;
end;
rewrite(fl2);
writeln(fl2,v);
close(fl1);
close(fl2);
end.
ребят в этом алгоритме есть ошибка найдите её плз
Выберите несколько из 4 вариантов ответа:
1) if D=10 then writeln (‘ура!’) else writeln (‘плохо…’);
2) if not (D=10) then writeln (‘ура!’) else writeln (‘плохо…’);
3) if not (D<>10) then writeln (‘ура!’) else writeln (‘плохо…’);
4) if D=10 then writeln (‘плохо…’) else writeln (‘ура!’);
Program Primer;
var
m:real;
n:real;
begin
writeln('Введите данные:');
writeln('Число "m":');
readln(m);
writeln('Число "n":');
readln(n);
If (m mod n=0) then writeln('Частное=', m/n);
If (m mod n<>0) then writeln('НЕ ДЕЛИТЬСЯ');
End.
выведите на экран их сумму. Если все они нечетные и A>B>C, то определите и выведите значения наибольшего и наименьшего из чисел. Иначе, выведите числа без изменения. Фрагмент программы: if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then begin S:=a+b+c; writeln('сумма равна ', S); end; if (a mod 2 <> 0) and (b mod 2 <> 0) and (c mod 2 <> 0) and (a>b) and (b>c) then begin writeln('наибольшее число ', A); writeln('наименьшее число ', C); end else writeln('a= ',a,' b= ', b, ' c= ',c);
ика);
если применить данный алгоритм к матрице заполненной кроликами то сколько кроликов останутся нескрытыми?