CLS
DIM D(10)
DATA 12,10,11,34,3,3,2,3,4,5
S = 0
FOR i = 1 TO 10
READ D(i)
IF i / 2 = i \ 2 THEN
ELSE
S = S + D(i)
END IF
PRINT D(i),
NEXT i
<span>PRINT "S="; S

</span>

0 0

1 год назад

Запишите ответы,продолжив слдующие фразы. Линейка нужна для Транспортир нужен для Термометр нужен для Барометр нужен для Компас

Минеева

1. Измерения отрезков.
2. Измерения углов.
3. Измерения температуры.
4. Измерения давления.
5. Определения частей света.
6. Определения положения космических тел.

6. Для просмотра более мелких объектов.

0 0

4 года назад

Дана цепочка символов лифт

Никас [6]

1 действие
лифт, количество букв четно, добавляем г в начало - глифт, затем меняем буквы дмйху
2 действие
дмйху нечетно, ддмйху
меняем буквы
еенкцф - ответ

0 0

4 года назад

Даю 15 баллов!!! Напишите программу для счета мелких денег,только она должна спрашивать:сколько у вас монет по 50/10/5/1 копеек?

pavel2

Program p1;
uses crt;
var a,b,c,d,e,s:integer;
begin
a:=50;
b:=10;
c:=5;
d:=1;
writeln('сколько у вас монет по 50');
read(e);
s:=a *e;
writeln('сколько у вас монет по 10');
read(e);
s:=s+b*e;
writeln('сколько у вас монет по 5');
read(e);
s:=s+c*e;
writeln('<span>сколько у вас монет по </span> 1');
read(e);
s:=s+d*e;
write('Всего копеек ',s);
end.

0 0

4 года назад

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