Var a:array[1..15] of integer; n:integer; i,k:real;
begin
writeln('введите начальное значение');
readln(i);
writeln('введите шаг изменения');
readln(k);
writeln('введите кол-во элементов');
readln(n);
while n<>0 do begin
writeln(i,' драхм = ',i*1.77185,'г = ',i*0.06249,' унций');
n:=n-1;
i:=i+k;
end;
end.

0 0

4 года назад

ПОМОГИТЕ С ИНФОРМАТИКОЙ ОЧЕНЬ СРОЧНО НУЖНО!!

НЮШЕ НЬКА

1)
а)Ширина-100 Высота- 66
б)заголовок-задание1
в)Размер-3 Цвет-Желтый

0 0

3 года назад

4. Пользователь на¬хо¬дил¬ся в ка¬та¬ло¬ге Расписание. Сна¬ча¬ла он под¬нял¬ся на один уро¬вень вверх, затем ещё раз под¬нял¬ся

Weranikanika [300]

4. С:\учёба\математика\ГИА.

С:\учёба\математика

С:\учёба\математика\каталог1

С:\учёба\математика\каталог1\каталог2

подходит:

С:\учёба\математика\2013\Расписание

Ответ: 4

1) afeget.doc

2) ufegelian.dim

3) zfegininal.disk

0 0

4 года назад

Определить количество трехзначных чисел, сумма цифр которых равна К. К вводится с клавиатуры. Найти количество четных чисел в пр

Kolyngrad

Ответ не знаю просто баллы нужны, парень ссорян, ты первый попался просто

0 0

3 года назад