Дан масив значений расстояния L в см.Преобразовать значения,превышающие 100 см в м, округлить до целых.
5-9 класс
|
Dashacolnceva
04 февр. 2017 г., 0:07:22 (7 лет назад)
Victoria88888
04 февр. 2017 г., 1:14:30 (7 лет назад)
program zadacha;
uses crt;
var a: array [1..5] of real;
i: integer;
begin
clrscr;
for i:=1 to 5 do begin
write ('enter length: ');
readln (a[i]);
end;
for i:=1 to 5 do begin
if a[i]>100 then begin
a[i]:=round(a[i]/100);
writeln (a[i], ' m');
end
else writeln (a[i], ' cm')
end;
readkey;
end.
Ответить
Другие вопросы из категории
Проанализируйте, что происходит при выполнении данной программы:
Private Sub Command1_Click0
Label1.BackColor=QBColor(3)
Form1.Caption="Пока!"
Form1.Left=10000
End Sub.
Читайте также
1.вычислите значение логического выражения при всех возможных значениях логических величин X и Y; X или (X не Y)
2.вычислите значение логического выражения при всех возможных значениях логических величин A и B; не(не A или не B) или A
3.вычислите значение логического выражения при всех возможных значениях логических величин A,B и C не(A или B и C) или A
4.вычислите значение логического выражения при всех возможных значениях логических величин A и B; B или не A и не B.
Вы находитесь на странице вопроса "Дан масив значений расстояния L в см.Преобразовать значения,превышающие 100 см в м, округлить до целых.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.