Задача 2.1
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int input;
cin >> input;
int size1 = abs(input / 100 - input % 100 / 10);
int size2 = abs(input % 100 / 10 - input % 10);
if (size1 == size2){
cout << "YES" << endl;
}else{
cout << "NO" << endl;
}
return 0;
}
В классе-10 учащихся 1 учащийся - на отлично ?%-составляют отличники? 1)1\10(одна десятая)=-0,2 2)0,2*100%=20%
Ответ:20% отличников.
32=2^5 => сообщение содержит 5 бит информации
Program dfgdf;
var
m,o,r,f:real;
begin
writeln('оценку по математике введите');
readln(m);
if (m>=1) and (m<=5) then
begin
writeln('оценку по русскому введите');
readln(r);
if (r>=1) and (r<=5) then
begin
writeln('оценку по физике введите');
readln(f);
if (f>=1) and (f<=5) then
begin
o:=(m+f+r+5)/4;
writeln('средняя оценка = ',o);
end
else
begin
writeln('не корректный ввод!!!');
end;
end
else
writeln('не корректный ввод!!!')
end
else
writeln('не корректный ввод!!!')
<span>end.</span>
Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.