microsoft visual basic 2010(более ранние тоже прокатят)
dim i as single private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load i = val(inputbox("введите число")) if i > = 0 then i = i - 50 else i = i + 100 end if msgbox(i) end sub
просто на basic
dim i as single
input(i)
if i > = 0 then i = i - 50 else i = i + 100 end if
print i
end
Ответ дал: Гость
var a: array [1..100] of integer;
i,n: integer;
s: string;
begin
randomize;
for i : =1 to 100 do
begin
a[i]: = random(1000)+1000;
a[i]: =a[i] mod 100;
a[i]: =a[i] div 10;
if a[i] mod 2 = 0 then n=n+1;
end;
writeln(n);
end.
Ответ дал: Гость
существует несколько стандартных разрешений монитора: 640 на 480, 800 на 600, 1024 на 768, 1280 на на 1024. т.е. 1310720 должно быть произведением этих параметров, получается разрешающая способность 1280 на 1024.
или
1280 x 1024 - это единственное стандартное разрешение, позволяющее вместить на экран ровно 1310720 px
Популярные вопросы