Форматирование диска - это

Знания

Информатика

1 ответ:

игорь19781978 [7]3 года назад

0 0

Ответ:

Удаление всей информации с диска

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

Помогите ответить на контрольные вопросы по информатике 6 класс.

ленчик83

Всё размыто и не видно ближе както камеру приближ или напиши вопр !

0 0

4 года назад

Дано натуральное число.Определить,какая цифра встречается в нём чаще-1 или 9. Pascal

заехали

Varn, nine, one: integer;
begin
readln(n);
nine := 0;
one := 0;
while (n > 0) do
begin
if (n mod 10 = 1) then
inc(one)
else
if (n mod 10 = 9) then
inc(nine);n := n div 10;
end;
if (one = nine) then
writeln('Равны')
else
if (one > nine) then
writeln('Единиц больше')
else
writeln('Девяток больше');
end.

0 0

4 года назад

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

Помогите с информатикой,пожалуйстааа Нужно написать программу в Pascal ABC

Hugo Chavez [272]

Слова отделяются друг от друга одним пробелом, знаков препинания нет.
var
s,s1:string; l,p:integer; b:boolean;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
l:=pos(' ',s1);
b:=true;
while p>0 do
begin
delete(s1,1,p);
p:=pos(' ',s1);
if p>0 then b:=b and (l=p);
end;
if b then writeln('ДЛИНА');
end.

Пример:
Введите строку:
мама мыла раму
ДЛИНА

0 0

2 года назад

Паскаль. Напишите программу, которая по последней цифре числа определяет последнюю цифру квадрата этого числа

Eugenie

Var i: Integer;
begin
write('Число: ');
readLn(i);
i := i mod 10;
writeLn('Цифра квадрата = ',
sqr(i) mod 10);
end.

0 0

4 года назад

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

На Pascal. Задача по Информатике: Дана последовательность из 16 чисел(числа вводятся с клавиатуры). Подсчитать количество чисел

ygggra [7]

Var n, i, count: integer;
begin
count := 0;
for i := 1 to 16 do begin
read(n);
if n mod 10 = 6 then count := count + 1;
end;
writeln(count);
end.

0 0

1 год назад