Вабанк! дана строка символов s, содержащая арифметическое выражение – сумму двух натуральных чисел. найти значение этой суммы. пример: вход '123+5558', выход 5681.
var a,b,c, max, min:real; begin Readln(a,b,c); if (a > b) and (a > c) then Max:= a; if (c > b) and (c > a) then Max:= c; if (b > a) and (b > c) then Max:= b;
if (a < b) and (a < c) then Min:= a; if (c < b) and (c < a) then Min:= c; if (b < a) and (b < c) then Min:= b;
if (a <> min) and (a <> max) then writeln(a); if (b <> min) and (b <> max) then writeln(b); if (c <> min) and (c <> max) then writeln(c); end.
Microsoft Paint — многофункциональный, но в то же время довольно простой в использовании растровый графический редактор компании Microsoft, входящий в состав всех операционных систем Windows, начиная с первых версий. Первая версия Paint появилась в Windows 1.0. В Windows 3.0 был переименован в PaintBrush. Но потом в Windows 95 и поздних версиях Windows он был опять переименован в Paint (однако, программа может вызываться и командой-затычкой pbrush, что есть явное сокращение от Paint Brush). В версии из Windows 3.x и более ранних версиях поддерживались только форматы MSP, BMP, PCX и RLE. В последующих версиях из этих форматов осталась поддержка лишь одного - BMP.
В Windows 95 была введена новая версия Paint. Тот же самый интерфейс продолжает использоваться в следующих версиях Windows. В Windows 98, Windows 2000 и Windows ME изображения могли быть сохранены в форматах GIF и JPEG, если были установлены необходимые графические фильтры от Microsoft (обычно они устанавливались вместе с другими приложениями от Microsoft, такими как Microsoft Office или Microsoft PhotoDraw). Начиная с Windows XP фильтры стали предустановленными, и добавилась поддержка форматов PNG и TIFF. В Windows Vista и Windows 7 полностью изменены иконки.
var
a,b,c, max, min:real;
begin
Readln(a,b,c);
if (a > b) and (a > c) then Max:= a;
if (c > b) and (c > a) then Max:= c;
if (b > a) and (b > c) then Max:= b;
if (a < b) and (a < c) then Min:= a;
if (c < b) and (c < a) then Min:= c;
if (b < a) and (b < c) then Min:= b;
if (a <> min) and (a <> max) then writeln(a);
if (b <> min) and (b <> max) then writeln(b);
if (c <> min) and (c <> max) then writeln(c);
end.
Пример:
-9 3 6
3
В Windows 95 была введена новая версия Paint. Тот же самый интерфейс продолжает использоваться в следующих версиях Windows. В Windows 98, Windows 2000 и Windows ME изображения могли быть сохранены в форматах GIF и JPEG, если были установлены необходимые графические фильтры от Microsoft (обычно они устанавливались вместе с другими приложениями от Microsoft, такими как Microsoft Office или Microsoft PhotoDraw). Начиная с Windows XP фильтры стали предустановленными, и добавилась поддержка форматов PNG и TIFF. В Windows Vista и Windows 7 полностью изменены иконки.
Windows 7 Править