1 год назад

Составить программу проверки на четность введенного с клавиатуры числа

1 ответ:

0 0

program test;
var number: integer;

begin
write('Enter the number: ');
readln(number);
if (number mod 2 = 0) then
writeln('Chislo ', number, ' chetnoe')
else
writeln('Chislo ', number, ' nechetnoe');
readln();
end.

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

Напишите программу, пожалуйста, на Pascal.Даны координаты нижнего левого угла квадрата на плоскости X и Y, и его площадь S. Треб

GUZESHKA [1]

uses crt;
var x,y,s,z1,z2,c1,c2:real;
begin
write('s=');
read(s);
write('x=');
read(x);
write('y=');
read(y);
s:=sqrt(s);
write('vvedite 1 koordinaty');
read(c1);
write('vvedite 2 koordinaty');
read(c2);
z1:=s+x;
z2:=s+y;
if (c1<=z1)and(c2<=z2)and(c1>=x)and(c2>=y) then
write('to4ka popala')
else
write('to4ka ne popala.');
read;
end.

где с1-первая координата, с2-вторая, z1 и z2-вспомогательные точки))) ну там разберешься)))

0 0

4 года назад

Составить программу для вычисления F=2*a*a+|6-a|+293a

dava

Var a:real;

Begin

Write('a=') ;read(a) ;

Write('f=', 2*a*a+abs(6-a)+293*a) ;

End.

0 0

4 года назад

Чем отличается текстовый редактор wordpad от блакнота

Эльф [11.6K]

Блокнот - самой простой текстовый редактор с мизерным количеством возможностей, а wordpad более навороченный редактор с большим количеством возможностей

0 0

4 года назад

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

При регистрации в компьютерной системе каждому пользо- вателю выдается пароль , состоящий из 12 символов и содер- жащий только с

krasamarina

каждый символ можно записать двоичным кодом из 3 нуликов или единичек, поэтому каждый символ весит 3 бит, пароль из 12 символов весит 36 бит, 200 паролей весят 200*36=7200 бит, т.е. 7200/8=900 байт

Ответ: 900 байт

0 0

4 года назад

Составить блок-схему к данному коду Var a,n,i,k:integer; Begin Readln(n); k:=0; For i:=1 to N do Begin readln(a); if a&gt

Илья Кутузов [120]

Блок-схема - в прилагаемом файле.

0 0

4 года назад

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