Var s,t:integer;
begin
write ('s='); readln(s);
if (s>-10) and (s<10)
then writeln ('Число однозначное')
else begin
t:=s mod 10;
writeln (abs(t));
end;
end.

0 0

4 года назад

Срочно!!Помогите пожалуйста по информатике заполнить таблицу

freshkino

Растровая графика: объём занимаемой памяти-очень большой; форматы файлов- BMP, GIF, JPG, JPEG.
Векторная графика: объём занимаемой памяти-относительно небольшой; Форматы файлов- WMF, EPS.
Всё что нашёл, если ещё что найду то напишу.

0 0

4 года назад

Напишите программу, которая выводит на экран все простые числа в диапазоне от 1 до числа, введенного с клавиатуры

ЮлияПотнина [6.1K]

Прости, что отвечаю через 2 часа, был не дома)

var
i, j, n : integer;
flag : boolean;
begin
write('n = ');
read(n);
for i := 2 to n do begin
flag := true;
for j := 2 to i-1 do
if (i mod j = 0) then begin
flag:=false;
break;
end;
if flag = true then write(i, ' ');
end;

0 0

4 года назад

Помогите составить блок-схему и программу!!!!!!!!!

bugstrategy007

Файл и схему прикрепил

0 0

4 года назад

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