Var
a, b, s : Integer;
begin
Write('введите a= ');
readln(a);
Write('введите b= ');
readln(b);
S:=a+b;
if s<32767 then writeln(s) else writeln('произошло переполнение');
end.
Вот код для qbasic'a SCREEN 12 cls LINE (200, 200)-(350, 400), , B LINE (200, 200)-(275, 100) LINE (275, 100)-(350, 200) CIRCLE (275, 160), 20 PAINT (275, 160) LINE (250, 250)-(300, 300), , B LINE (275, 250)-(275, 300) LINE (250, 270)-(300, 270) LINE (350, 400)-(355, 210), , B LINE (350, 210)-(370, 200), , B LINE (350, 400)-(400, 400) LINE -(400, 380) LINE -(380, 380) LINE -(380, 360) LINE -(355, 360) LINE (325, 165)-(325, 100) LINE -(310, 100) LINE -(310, 145)
а) 11
б) 1
в) 0
Вооот... Надо минимум 20 символов, поэтому позволь мне сказать тебе, что ты классный чел)
Налить в 5литровую банку воды, перелить из нее в 2литровую, отсанется 3 литра, и ещё раз перелить в 2литровую, останется 1 литр
Если учесть точное значение гигабайта, а это 1024 мегабайта, то решение будет таким:
4 * 1024 = 4096 мегабайт
4096 / 3,2 = 1280.
Ответ: на флеш карту размером 4 Гб можно записать 1280 музыкальных файлов.