program number7;
uses crt;
var A: integer;
begin
clrscr;
A:=(116 div 10)*(116 mod 15) div 2 +116 mod 6;
writeln('a=',A);
end.
a=62, div 10 - делит число на 10 и выделяет целую часть, mod 15 - делит число на 15 и выделяет остаток от деления , div 2 - делит число на 2 и выделяет целую часть, mod 6 - делит число на 6 и выделяет остаток
Зная, что в палитре 256 цветов делаем вывод, что один пиксель весит 8 бит, то есть 1 байт. Чтобы узнать сколько весит картинка мы находим кол-во пикселей в картинке: 256*256=65 536 байт. Переводим в кбайт: 65 536:1024=64 кбайт
Есть крутая вещь - справка! Найти аналоги функций не такая уж большая проблема...
1.Андрей,старше Светы,также как Наташа или немного младше?
2.Один десятый класс,идёт на экскурсию в музей,а второй десятый класс идёт в театр или в филармонию.
3.На полке, в комнате Нади, стоят учебники и справочники,которые помогают ей понимать учебный материал.
4.Часть детей в классе- девочки,а ,остальные-мальчики,или же, в классе одинаковое количество девочек и мальчиков?
Программа может выглядеть так:
program Func;
uses Crt;
var a,b: integer;
rez, fa, fb: integer;
begin ;
ClrScr;
a:=4;
b:=-5;
fa:=3*sqr(a)+4*a-5;
fb:=3*sqr(b)+4*b-5;
Rez:=fa+fb;
WriteLn('f(4)=', fa);
WriteLn('f(5)=', fb);
WriteLn('f(4)+f(5)=', Rez);
ReadLn;
end.
,
