Исправьте ошибки: а)IF 1<X<2 THEN X:=X+1; Y:=0;
5-9 класс
|
ELSE X:=0; Y:=Y+1;
б)IF 1<X AND X<2
THEN BEGIN X:=X+1; Y:=0;
ELSE X:=0;Y:=Y+1; END;
Составьте блок-схему и запишите правильный вариант
После исправления ошибок получим два одинаковых фрагмента для 1) и 2):
if (1<X) and (X<2) then
begin
X:=X+1; Y:=0;
end
else
begin
X:=0; Y:=Y+1;
end;
Блок-схема - во вложении
1) IF (1<x) and (x<2)
THEN BEGIN x:=x+1; y:=0; END
ELSE BEGIN x:=0; y:=y+1; END
2)
IF (1<X) AND (X<2)
THEN BEGIN X:=X+1; Y:=0; END
ELSE BEGIN X:=0; Y:=Y+1; END;
Блок схему сделаешь по этому принципу
пример 1)
Условие - (1<x) and (x<2)
Действие 1 - x:=x+1; y:=0;
Действие 2 - x:=0; y:=y+1;
Второй думаю сможешь сама.
Вопросы, недочеты в ЛС
Другие вопросы из категории
системе счисления.
Читайте также
расположенных между N и K(включая эти числа).
Пример входных данных: 2 5
Пример выходных данных: 10
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.
ребят в этом алгоритме есть ошибка найдите её плз
Кузнец подковал лошадь. В каждой подкове 6 гвоздей. Владельцу было предложено два вида оплаты:
1) заплатить за все гвозди 50 рублей.
2) За 1 гвоздь - 1 коп., 2 гвоздь - 2 коп., и т.д. каждый раз в два раза больше чем за предыдущий гвоздь.
Владелец предпочёл второй вариант. Во сколько раз больше он заплатил?
Короче, вот программа, но она не работает.
Ошибки исправьте, пожалуйста.
x, если -3=<x<0
-- 4x,если х>4
--
<| - это фигурная скобка
--
Отдаю все пкт,что у меня есть,мне не жалко:)
Блин,что никто не знает?(((
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.