Var a,c1,c2 integer; b: bool; begin b:=true; writeln("Введите четырехзначное число "); readln(a); c1:=a mod 10; a:=a div 10; while(a>0) do begin c2:=a mod 10; a:=a div 10; if c1 <> c2 then b:= false; end; if b=true then writeln("Все цифры данного числа равны") else writeln("Цифры данного числа различны"); end.

0 0

4 года назад

Составить программу для вычисления x и y по формулам x=∛(cos^2-c*sina^3) y=ln|(sin(a-b))/(tg4c)|

Mio [3]

Вот программа паскаль

0 0

3 года назад

Составьте блок схему алгоритма и программу вычисления суммы целых чисел из промежутка [-8;4), кратны 4

krot782502 [7]

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var (n,s,k):=(-8,0,0);
repeat
s+=n; k+=1;
n+=4
until n>4;
Writeln('Сумма=',s,', количество слагаемых ',k)
end.

Результат
Сумма=-8, количество слагаемых 4

0 0

3 года назад

Прочитать ещё 2 ответа

Вы хотите работать с разрешением монитора 1600•1200 пикселей используя 16.777.216 цветов.В магазине продаются видеокарты с памят

Vieschi [7]

V=K*I где K - кол-во пикселей, а I - вес одного, по формуле 2^I = N, с округа в большую сторону, т.е логарифм Из 16,777,216 * 1600*1200

0 0

4 года назад