<em>// PascalABC.NET 3.2, сборка 1404 от 16.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var lsm:=ReadInteger('Укажите длину в см:');
if lsm<100 then Writeln(lsm,' см')
else begin
var lm:=lsm div 100;
Write(lsm div 100,'м');
lsm:=lsm mod 100;
if lsm<>0 then Write(' ',lsm,'cм');
Writeln
end
end.
<u>Примеры</u>
Укажите длину в см: 1623
16м 23cм
Укажите длину в см: 1200
12м
Укажите длину в см: 38
38 см
Длина строки "Я памятник воздвиг нерукотворный." = 33 символа, учитывая все пробелы и точку. Если размер символа равен 2 байтам, то в итоге получим, что размер строки равен 66 байт, что равно 528 битам (66 * 8 = 528). Ни один из предложенных условием задачи вариантов не является верным, либо Вы совершили ошибку при переписывании условия.
Смотри объясню как делать дни недели и дату впиши сам. на чтение запиши каждый день по 20 мин, а потом сложи(за неделю)(140) и раздели(среднее)(20)
просмотр передач запиши п. 20мин ; вт. 40мин ; ср. 45 мин; чт 15 мин ; пт 1 час ; сб. 2 часа; вс 1 час. всего за неделю выйдет 5 часов, среднее 43 мин.. Компьют игры. пн 30, вт 30, ср 1 час, чт 2 часа, пт 30 мин, сб 30 мин, вс 1 час. свего 5 часов. среднее 43 минуты. Активные игры понедельник 2 часа. вт 40 мин,ср 1 час 20 мин, чт 2 часа, пт 3 часа, сб 1 час, вс 2 часа. всего12 часов, среднее 2 часа. общение или прогулки. пн 1 часм, вт 30 мин, ср 30 мин, чт 40 мин, пт 1 час 20 мин, сб 2 часа, вс 1 час. всего8 часов. среднее 1 час. другое сможешь придумать сам ?
Sub aaa()
a = CDbl(InputBox("первое число"))
b = CDbl(InputBox("второе число"))
MsgBox "минимум двух чисел " + CStr(IIf(a > b, b, a))
End Sub
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var m1:=Arr('ноль','один','два','три','четыри','пять','шесть','семь','восемь','девять');
Println('Это',m1[ReadInteger]);
end.
Пример:
9
Это девять