<span>если на C++, то вот процедуры:
если с помощью библиотеки graphics.h
x и y нужно передавать левого верхнего угла буквы
#include <graphics.h>
#include <stdio.h>
#include <conio.h>
int x=50,y=50;
void M(int x,int y)
{ // длина буквы 44, высота тоже 44
x+=50;
line(x,y,x,y+44);
line(x,y,x+22,y+44);
line(x+22,y+44,x+44,y);
line(x+22,y+44,x+44,y+44);
}
void I(int x,int y)
{ // длина буквы 22, высота тоже 44
x+=28;
line(x,y,x,y+44);
line(x,y+44,x+22,y);
line(x+22,y,x+22,y+44);
}
void R(int x,int y)
{ // длина буквы 22, высота тоже 44
x+=28;
line(x,y,x,y+44);
line(x,y,x+22,y);
line(x,y+22,x+22,y+22);
line(x+22,y,x+22,y+22);
}
main()
{
initwindow(800,600);
M(x,y); I(x,y); R(x,y);
x=50;y=100;
R(x,y); I(x,y); M(x,y);
x=50;y=150;
M(x,y); I(x,y); M(x,y);
getch();
closegraph();
}
P.S. я старался</span>
Var x,y,U, S:integer;
begin
readln (x,y);
S:=x+y;
if (S>100) then U:=S/2;
if (S<100) then U:=S; (зависит от условия. по-моему, в задании неправильно поставлено второе условие.)*
writeln (U);
end.
*если в условии написано
"в противном случае умножить на два, то
if (S<100) then U:=S*2;
а если оставить число неизменным, то
if (S<100) then U:=S;
Можно найти в ноутбуке папку такую "Удаленные файлы", удаляешь, стираешь эти файлы, и удаляешь их из корзины. Или скачать программу, которая удаляю файлы, которые ты выбрал, а потом удаляй саму программу
СФОРМУЛИРОВАТЬ ЗАДАЧУ Var a, b, c, d, m, n: integer; Begin Write ('введите натуральные числа a, b, c, d: '); Readln (a, b, c, d
MaxUARU333
Программа вычисляет значение дроби
определяя по алгоритму Евклида НОД числителя и знаменателя, а затем сокращая дробь на найденный НОД.
A='КИБЕРНЕТИКА'
---------------
n:=11;
m:=6;
b:='Н';
c:='И';
b:='НИ';
c:='Т';
b:='НИТ'
цикл для i от 10 до 11:
c:='К';
b:='НИТК';
c:='А';
b:='НИТКА';
конец цикла
<u><em>Ответ:</em></u> 2) НИТКА