1)Первый способ:
program one;
var a,b:integer;
begin
b:=0;
readln(a);
while a<>100 do
begin
if a=77 then
begin
b:=b+1;
readln(a);
end
else readln(a);
end;
if b>0 then writeln('Yes')
else writeln('No');
end.
2)Второй способ:
program one;
var a,b:integer;
begin
b:=0;
repeat
readln(a);
if a=77 then b:=b+1;
until a=100;
if b>0 then writeln('Yes')
else writeln('No');
end.

0 0

2 года назад

Прочитать ещё 2 ответа

Составить программу, которая формирует случайным образом два одномерных массива из N элементов и выводит элементы первого массив

ТаняНастя [2]

program raf105;

const

N = 10;

var

a,b: array[1..N] of integer;

x: boolean;

begin

for var i:=1 to N do

begin

a[i]:= random(15);

b[i]:= random(15);

end;

writeln('A: ',a);

writeln('B: ',b);

write('Вывод: ');

for var i:=1 to N do

begin

x:= False;

for var j:=1 to N do

if a[i] = b[j] then x:= True;

if not(x) then write(a[i],', ');

end;

end.

<h3>PascalABC</h3>

0 0

4 года назад

На с++ с циклом whiteВывести на экран числа от A до B в порядке возрастания.Формат входных данныхВводятся два целых числа А и В

unjere4 [50]

#include <bits/stdc++.h>
using namespace std;

int main() {
int a, b;
cin >> a >> b;
int x = a;
while (x <= b) {
cout << x << endl;
++x;
}
return 0;
}

//Запасной вариант
#include <bits/stdc++.h>
using namespace std;

int main() {
int a, b;
cin >> a >> b;
if (a > b) {
int z = a;
a = b;
b = z;
}
int x = a;
while (x <= b) {
cout << x << endl;
++x;
}
return 0;
}

0 0

4 года назад