4 года назад

Переставить одну спичку чтоб получилось правильное равенство 12+4=9

Знания

Информатика

1 ответ:

Владимир Руцкий4 года назад

0 0

От + забери 1 спичку, и эту же спичку к 9 преложи (12-4=8)

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

Написать программу печати квадратов всех натуральных чисел от 1 до n. Паскаль, цикл-for. Пожалуйста помогите,очень нужно!!!!!

ФФФФФФФФФФФФФФФ

Ответ:

Объяснение:

var n,i:integer;

begin

write('Введите N ');

readln(n);

for i:=1 to n do

writeln(i,'^2= ',sqr(i));

readln;

end.

Если уж совсем просто, то:

var n,i:integer;

begin

write('Введите N ');

readln(n);

for i:=1 to n do

writeln(i*i);

readln;

end.

0 0

3 года назад

Дан целочисленный массив размера N (> 2). Удалить из массива все элементы с нечетными номерами (1, 3, …).

Rayn [24]

<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>

begin
var a:=ArrRandom(ReadInteger('Введите размер массива->'),-100,100); Write('Начальный массив: '); a.Println;
a:=Range(1,a.Length-1,2).Select(i->a[i]).ToArray; Write('Конечный массив: '); a.Println;
end.

Пример:
Введите размер массива-> 10
Начальный массив: -100 84 -35 -26 -33 63 36 22 60 89
Конечный массив: 84 -26 63 22 89

0 0

3 года назад

Нужно срочно прям! Какой сможете, сделайте, пожалуйста! Заранее спасибо!

Елена Ф [56]

Для первого решу,а дальше сам.... ПРОГРАММА ДЛЯ ПАСКАЛЯ!!!!!!!!!!
Program dvoechnik;
var a,b,s,p:real;
begin
writeln ('Площадь прямоугольника');
writeln ('Введите ширину');
readln (a);
writeln ('Введите длинну');
readln (b);
s:=a*b;
p:=(a+b)*2;
writeln ('S=',s);
writeln ('P=',p);
end.

0 0

4 года назад

Текст набран на компьютере. Текст занимает 4 страницы, на каждой странице 48 строк, в каждой строке 64 символа. Определите инфор

stertanya75

$4*48*64*8 = 98304$ бита