Кирилл_Гульницкий
?>

1) дан массив целых чисел, состоящий из 10 элементов. заполнить его с клавиатуры. вывести на экран только те числа, для которых из значение больше номера их индекса. ,

Информатика

Ответы

Igorevich1559

var    m : array [1..10] of integer;     i : integer; begin     writeln('введите массив: ');     for i : = 1 to 10 do     begin         write(i, ': ');         readln(m[i]);     end;     for i : = 1 to 10 do         if m[i] > i then             write(m[i], ' ');

 

    readln; end.

elenak26038778

var x1, x2, y1, y2, r1, r2, d, b, x3, x4, y3,y4,x,y, h, a: real;

begin readln(x1, y1, r1, x2, y2, r2); d : = sqrt(sqr(x1 - x2) + sqr(y1 - y2)); if (d > r1 + r2) or (d < abs(r1 - r2)) then writeln('no intersection point') else if (x1 = x2) and (y1 = y2) then if (r1 = r2) then writeln('infinity') else writeln('no intersection point') else begin b : = (r2 * r2 - r1 * r1 + d * d) * 0.5 / d; a : = d - b; h : = sqrt(abs(r1 * r1 - sqr(; x : = x1 + (x2 - x1) * a / d; y : = y1 + (y2 - y1) * a / d; x3 : = x - (y - y2) * h / b; y3 : = y + (x - x2) * h / b; x4 : = x + (y - y2) * h / b; y4 : = y - (x - x2) * h / b; writeln(x3, ' ', y3); if(x3< > x4)or(y3< > y4) then writeln(x4, ' ', y4); end; end.

cheberyako2013

Python:

cost = int(input('Cost per 1 kg is\n>>'))

print('Cost for 150g is {}'.format(cost * 0.15))

print('Cost for 300g is {}'.format(cost*0.3))

print('Cost for 3 kg is {}'.format(cost*3))

C++:

#include <iostream>

int main(){

       int cost;

       std::cout<<"Cost per 1 kg is\n>>";

       std::cin>>cost;

       std::cout<<"For 150g is "<<cost*0.15<<"\n";

       std::cout<<"For 300g is "<<cost*0.3<<"\n";

       std::cout<<"For 3 kg is "<<cost*3<<"\n";

       return 0;

}

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

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

1) дан массив целых чисел, состоящий из 10 элементов. заполнить его с клавиатуры. вывести на экран только те числа, для которых из значение больше номера их индекса. ,
Ваше имя (никнейм)*
Email*
Комментарий*

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

Anna Artem
MAXIM76748
glebshramko
secretar62
Коваль1974
ayk111560
meteor90
smint056950
sergeykirushev
Иванович621
dbakun
modellisimo-a
smnra219
stic1995
Vera_Shuklin