Светлана: 1→¬(1+0)=1→¬1=1→0=0;
Анатолий: 1→¬(0+1)=1→¬1=1→0=0;
Римма: 0→¬(1+0)=0→¬1=0→0=1;
Дмитрий: 1→¬(1+0)=1→¬1=1→0=0;
Ответ: Римма
Можно реализовать через строки, но вы видимо только начали проходить Паскаль, поэтому такой вариант ;-)
Var
a, b, i:integer;
Begin
write('Введите значения a и b: ');
read(a, b);
writeln('Цикл for');
for i := b downto a do write(i*i*i, ' ');
writeln();
writeln('Цикл while');
i := b;
while i >= a do
begin
write (i*i*i, ' ');
dec(i);
end;
writeln();
writeln('Цикл repeat');
i:=b;
repeat
write(i*i*i, ' ');
dec(i)
until i < a
writeln();
End.
#include <iostream>
using namespace std;
int main()
{
int n,max;
bool a=false;
cout<<"enter kol-vo numbers:"<<endl;
cin>>n;
if(n<=1000)
{
int arr[n];
cout<< "enter 1 chislo"<<endl;
cin>>arr[0];
max=arr[0];
if(arr[0] % 10==3 && arr[0]<30000)
{
a=true;
for (int i=1;i<n;i++)
{
cout<<"enter "<<(i+1)<<" chislo"<<endl,
cin>>arr[i];
if(arr[i]>30000) {goto b;}
}
for (int i = 0; i < n; ++i) {
if (arr[i] > max && arr[i] % 10==3)
{
max = arr[i];
}
}
}
}
b:
if(a){ cout<<" max chislo okanch na 3: "<< max<<endl; }
return 0;
}
В 1 Гбайте= 1024Мбайт 107*1024=109568 Мбайт
В 1Мбайт=1024 байт 109568*1024=112197632 Байта