Перевести из паскаль на яву [требует правки]
269
23 июня 2017, 07:34
program ibragim;
Var i,e:integer;r:real;S:string;
begin
Write('Введите S:');
Readln(S);
val(S,i,e);
if e=0 then writeln('1') else
begin
val(S,r,e);
if e=0 then writeln('2') else writeln('0');
end;
end.
-
12:23
-
20:41
-
06:31
-
21:28
-
22:18
-
08:00
-
13:46
-
10:14
-
18:32
Сборка персонального компьютера от Artline: умный выбор для современных пользователей
ТОП-10
- Почему SERVER_ADDR имеет не тот IP 49912 visits
- Как заменить $_SERVER[REMOTE_ADDR] на IP клиента в PHP за двумя Nginx? 31901 visits
- Хочу вывести несколько строк из массива в один div, выводит только много undefined; подскажите, что делать? 25875 visits
- Как через css изменить цвет png изображения? 11721 visits
- Blob video url download 11267 visits
- Php curl запрос через прокси с авторизацией 10665 visits
- Работа с captcha vk api 9470 visits
© "hostciti.net" 20.12.2025 | 23:04