4 года назад

SOS. Найти произведения четных чисел от 10 до 20. Написать программу в Паскаль

1 ответ:

Taras 1 [29]4 года назад

0 0

begin writeln ('введите целое число'); readln( a ); x:=a; s:=0; while ( x<>0 ) do begin s := s + (x mod 10); x := x div 10; end;

Читайте также

Напишите программу которая Определяет nod трех натуральных чисел (с использованием процедур) Срочно

Ирина Шимкевич 25

Var
a,b,c:integer;
procedure main(a,b,c:integer);
var
i,max,nod:integer;
begin
if (a>b) and (a>c) then
max:=a
else
if (b>a) and (b>c) then
max:=b
else
max:=c;
nod:=1;
for i:=1 to max do
begin
if (a mod i = 0) and (b mod i = 0) and (c mod i = 0) then
nod:=i;
end;
writeln(nod);
end;
begin
read(a,b,c);
main(a,b,c);
end.

0 0

4 года назад

Расшифровать следующие сообщения с помощью кода Юлия Цезаря, известно, что ключ, это цифра от 1 до 5 при шифровании использовалс

Valentina Antipova [111]

Ответ: спасибо за поддержку

0 0

4 года назад

Помогите пожалуйста с задачей C++. Вычислить значение переменной y по заданной расчетной формуле и набору исходных данных. Значе

Люсиль Арно [7]

Программа на c++:

#include <iostream>

#include <cmath>

using namespace std;

int main()

{

float a, b, x, y;

cout << "Input a,b,x: ";

cin >> a >> b >> x;

y = pow(cos(pow(x, 3)), 2) - abs(x) / sqrt(a * a + b * b);

cout << "You Input:\na=" << a << "\nb=" << b << "\nx=" << x << "\nResult:\ny=" << y;

return 0;

}

После ввода соответствующих значений программа выведет:

Input a,b,x: 1.5 15.5 -2.9

You Input:

a=1.5

b=15.5

x=-2.9

Result:

y=0.355384

Отсюда значение y: 0.355384

Ответ: y=0,355384

0 0

4 года назад

Помогите! Учитель информатики разозлился. Чо я сломал ПК? И выдаёт ошибку disk boot failure insert system disk and press enter

Romann

<span>Вы решили поработать с компьютером, включили его, устроились поудобнее, но вместо приветствия увидели на экране «DISK BOOT FAILURE, INSERT SYSTEM DISK»? Это сообщение означает, что ПК не может загрузить данные с системного диска. Если эта ошибка не связана с поломкой винчестера, её можно исправить. Но иногда она возникает из-за аппаратной неисправности. В таком случае починку компьютера лучше доверить профессионалам </span>

0 0

3 года назад

I=3,5 K=3,5кб K=7168 символов Найти N=? Help me please Помогите

ss200377 [200]

3.5•8•1024=28672
28682÷7168

0 0

4 года назад