4 года назад

Паскаль, цикл while, срочно, пожалуйста! Запросить 6 чисел и вывести их сумму

Знания

Информатика

1 ответ:

Aleksa777774 года назад

0 0

Ответ:

var a,s,k:integer;

begin

k:=0;

s:=0;

while k<6 do begin

k:=k+1;

read(a);

s:=s+a;

end;

writeln;

write(s);

end.

Читайте также

1)Как строится доменная система имён?2)В каких целях при передаче файлов по компьютерным сетям производится и х разбиение на инт

роман79 [3]

1) И<span>ерархический принцип. Сначала домены верхнего уровня, затем второго и третьего.
2) Скорость передачи</span>

0 0

3 года назад

Что тут не так написано? Что нужно исправить? program lala; var A : array [1..10] of integer; i : integer; begin for i:=1 to 10

strong6296

Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');

Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');

0 0

4 года назад

Даю 20 баллов!!! Запишите IP-адрес из четырёх десятичных чисел в 32-битном виде: 1) 88.17.130.128; 2) 224.5.0.22.

elenaveselova

Эммм, типа двоичными числами что ли? ну как то так:
88 = 64 + 24 = 64 + 16 + 8 88=01011000
17 = 00010001
130 = 10000001
128 = 10000000
88.17.130.128 = 088.017.130.128 = 01011000.00010001.10000001.10000000

224 = 128 + 96 = 128 + 64 + 32 224 = 11100000
5=101
22=10110
224.5.0.22 = 224.005.000.022 = 11100000.00000101.00000000.00010110

0 0

3 года назад

Построить график функции y = x в корне, на отрезке от 0 до 4 с шагом 0.2 p.s все в документе xls

Анна Ботова

График построен. Отпишитесь.

0 0

3 года назад

Алфавит племени Мульти состоит из 8 букв. Какое количество информации несет одна буква этого алфавита?

Senatorius

<span>Существует формула, которая связывает между собой количество возможных информационных сообщений N и количество информации I, которое несет полученное сообщение:</span>

N = 2 в степени I, следовательно

8 = 2 в степени 3, следовательно 3 - количество информации которое несёт одна буква этого алфавита.

0 0

4 года назад

Паскаль, цикл while, срочно, пожалуйста! Запросить 6 чисел и вывести их сумму​

Паскаль, цикл while, срочно, пожалуйста! Запросить 6 чисел и вывести их сумму