Перевести из паскаль на яву [требует правки]
220
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.
-
08:01
-
07:36
-
07:00
-
21:22
-
20:00
-
20:14
-
07:41
-
19:16
-
07:17
ТОП-10
- Почему SERVER_ADDR имеет не тот IP 46627 visits
- Как заменить $_SERVER[REMOTE_ADDR] на IP клиента в PHP за двумя Nginx? 30273 visits
- Хочу вывести несколько строк из массива в один div, выводит только много undefined; подскажите, что делать? 22795 visits
- Как через css изменить цвет png изображения? 10159 visits
- Blob video url download 9798 visits
- Php curl запрос через прокси с авторизацией 9056 visits
- Работа с captcha vk api 7974 visits
© "hostciti.net" 19.4.2024 | 15:23