ПОМОГИТЕ В ЧЕМ ОШИБКА!!
5-9 класс
|
program ZADACHA1;
var
a,b,c,d,d1,e:integer;
x,y,k,l:real;
begin
WRITELN('Цыбулак Максим');
READLN(a);
READLN(b);
c:=a+b;
e:=a*b;
d:=a-b;
k:=a/b;
d1:=b-a;
l:=b/a;
WRITELN('a+b=',c);
WRITELN('a-b=',d);
WRITELN('b-a=',d1);
WRITELN('a*b=',e);
WRITELN('a/b=',k);
WRITELN('b/a=',l);
m;=SQR(a);
n;=SQR(b);
o;=SQRT(a);
p;=SQRT(b);
WRITELN('квадрат числа',a,'=',m);
WRITELN('квадрат числа',b,'=',n);
WRITELN('корень числа',a,'=',o);
WRITELN('корень числа',b,'=',p);
end.
Подправил,решение гораздо меньше и используется меньше переменных
program ZADACHA1;
var
a,b,c:integer;
Begin
Writeln('Цыбулак Максим');
Readln(a);
Readln(b);
Другие вопросы из категории
6. Для хранения изображения размером 64х32 точек выделено 64 Кбайт памяти. Определите, какое максимальное число цветов допустимо использовать в этом случае.
7.Сколько секунд потребуется модему, передающему сообщения со скоростью 56 000 бит/с, чтобы передать цветное растровое изображение размером 640 х 480 пикселей, при условии что цвет каждого пикселя кодируется тремя байтами?
8.Определите скорость работы модема, если за 256 с он может передать растровое изображение размером 640 х 480 пикселей (на каждый пиксель приходится 3 байта).
Задание:напишите команды для этого рисунка!
FOR...
CIRCLE...
NEXT...
FOR....
CIRCLE...
NEXT...
компьютер за 1 день (8часов работы) при условии непрерывной работы? Рабочая страница содержит в среднем около 40 строк по 50 символов.
1) Каждый символ закодирован в Unicode. Оцените информационный объём сообщения:.
Хочешь жить - умей вертеться! Ответ запишите в битах.
2) Переведите число а) 29; б)-299 из десятичной системы счисления в двоичную. Запишите число в минимальном формате.
3) Определите информационный объём звукового файла, если файл длится 1минуту и звуковой картой с частотой 32 КГц и разрешением 8 бит воспроизводится стереозвук. Ответ запишите в КБайтах.
4) Определите количество цветов в картинке, если её информационный объём 703,125 Кбайт, а разрешение графического редактора 800 х 600.
Читайте также
данное.
а)Определит ьдлину текста.
б)Определить количество букв "b" в нем.
в)Вывести самое длинное слово.
2)Дано предложение. Найти, в каком из слов, состоящего из более чем четырех символов, буква "а" встречается чаще.
По большей части интересует задание 1-в и 2. Буду очень благодарен!!!
var a,b,c,d,f,e,n:longint; k:real;begink:=0;for n:=000001 to 999999 do begin a:= n mod 10;b:= n div 10 mod 10;c:= n div 100 mod 10;d:= n div 1000 mod 10;f:= n div 10000 mod 10;e:= n div 100000 mod 10;if(a+b+c=d+f+e) then begin writeln(n);k:=k+1;end;end;end.
покупатель должен заплатить в кассу S рублей . У него есть купюры в 1,2,5,10,50,100,500 руб. Найти наименьшее кол-во , которым он может рассчитаться? Помогите пожалуйста!