Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.
33*40*64*8бит на символ = скоко аа
вес в битах
(кои-8 ето 8 бит на символ не 8символнасимвол)
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var (s,d,e):=(n div 100, n div 10 mod 10,n mod 10);
if n.IsEven then Writeln(s+d+e) else Writeln(e,d,s)
end.
<u>Примеры</u>
n= 531
135
n= 428
14
Ответ:#include "pch.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(0, "");
float sum = 0;
for (int i = 0; i < 24; i++)
{
sum += 0.1;
}
cout << "На " << sum << " м. поднялась вода за сутки.\n";
system("pause");
return 0;
}
Объяснение:В сутках 24 часа, в цикле идем от 0 до 24, то есть 1й раз i = 0, 24й раз i = 23. Поэтому проходим по всем 24 часам и прибавляем уровень воды каждый час.