qelmar461
?>

я слаба в информатике я с села приехала недавно ничего не понимаю ​

Информатика

Ответы

Maloletkina-marina2
2. Текстовые, комбо.
3. Адрес да, пароль - нет.
agaloan8
2.)
var x1, y1, x2, y2, n1, n2: real;
begin
write('x1, y1: ');
read(x1, y1);
write('x2, y2: ');
read(x2, y2);
n1:= sqrt(sqr(x1)+sqr(y1));
writeln(n1);
n2:= sqrt(sqr(x2)+sqr(y2));
writeln(n2);
if n1<>n2 then
if n1<n2 then
writeln('1 точка находится ближе к началу координат.')
else
writeln('2 точка находится ближе к началу координат.')
else
writeln('Точки находятся на равном расстоянии от начала координат.')
end.

3.)
var n, x, a, b, c, s: integer;
beginwrite('Введите число: ');
readln(n);
if (n>99) and (n<1000) then
begin
write('Введите x: ');
readln(x);
a:= n div 100;
b:= (n - a*100) div 10;
c:= (n - a*100 - b*10);
if a=x then s:=s+1;
if b=x then s:=s+1;
if c=x then s:=s+1;
if s>0 then
writeln('В числе есть ', x)
else writeln('В числе нет ', x);
end
else
writeln('Число не трехзначное');
end.
klimovala2
Прога написанная в codeblocks: #include < iostream> using namespace std; int main() {          setlocale(lc_all,"russian");           int a[20];           int b, c, i, q=0;           for(i=1; i< 21; i++)          {                  cout< < "введите "< < i< < " число: ";                   cin> > a[i];           }          cout< < "введите начальный номер элемента массива: ";     cin> > b;     cout< < "введите конечный номер элемента массива: ";     cin> > c;     for(int j=b; j< c+1; j++)          {                q+=a[j];         }          cout< < "cумма элементов массива с номерами с "< < b< < " по "< < c< < " равна: "< < q; } я надеюсь тебе была нужна прога на с++))

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

я слаба в информатике я с села приехала недавно ничего не понимаю ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

kisuhakisa
Татьяна902
shilinmikhaillg
Yevgenevna
annademidova-74
skvorec3424
teya07
razumeiko0790
nunabat457
Акимцева27
ASRodichev
marinakmaa86
shilinmikhaillg
pbttehnology
Андрееевич787