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
Ответ дал: Гость
1)7-5=2 уч.-имеют две "3" по и по . 2)17-4-5-2=6 уч.-имеют две "3" по и по . 3)22-5-2-11=4 уч.-имеют две "3" по и по . 4)40-22-4-6-4=4 уч.-учатся без "3". 5)6+2+4=12 уч.-имеют "3" по двум предметам из трёх.
Ответ дал: Гость
в блок схемах не сильна
var n: integer;
s,s0: real;
begin
n: =1;
s: =10;
repeat
n: =n+1;
s: = s + (100+p)*s0/100;
s0: =(100+p)*s0/100;
until s> 200;
writeln(s);
end.
Ответ дал: Гость
размер объекта- эскиз
форму реального объекта - чертежа
цвет объекта-рисунка
элементный состав объекта -схемы
отношения между объектами - диаграммы эйлера-венна
Популярные вопросы