Вот для пальцев физкультура
С буквами ....... (клавиатура
Не зверушка не летаешь
а по коврику скользишь
курсором управляешь
ты – компьютерная...(мышь.)
Долго сочиняла
вот простые вопросы
на него мы смотрим, на столе стоит программы открывает. монитор
Сохраняет все секреты
*ящик* справа возле ног
и слегка шумит при этом
Что за *звер?* ситем блок
//task 1
var k,m:integer;
begin
readln(k,m);
writeln('Сумма',k+m,' Произведение ',k*m,' Квадрат разности ',sqr(k-m));
end.
//task 2
var i, s:integer;
p:real;
begin
p:=1;
for i:=60 to 240 do
if i mod 3=0 then begin
s:=s+i;
p:=p*i;
end;
writeln('Сумма ',s,' Произведение ',p);
end.
//task 3
var x1,y1,x2,y2:real;
begin
//ввод координат точек
writeln('Введите X1,Y1,X2,Y2');
readln(x1,y1,x2,y2);
//выясняем в какой четверти находятся концы отрезка
if (x1>0)and(y1>0)and(x2>0)and(y2>0) then whiteln('1 четверть');
if (x1<0)and(y1>0)and(x2<0)and(y2>0) then whiteln('2 четверть');
if (x1<0)and(y1<0)and(x2<0)and(y2<0) then whiteln('3 четверть');
if (x1>0)and(y1<0)and(x2>0)and(y2<0) then whiteln('4 четверть');
end.
===== PascalABC.NET =====
begin
var a := MatrRandom(4, 6, -99, 99);
a.Println(4);
Writeln;
var b := a.Rows.Select(r -> r.Sum).ToArray;
b.Println.Max.Println
end.
Program sumInt;
var
a: Integer;
begin
writeln('Введите число = ');
readln(a);
writeln('Сумма равна = ');
writeln( (a div 100000) + (a div 10000 mod 10) + (a div 1000 mod 10 mod 10) + (a div 100 mod 10 mod 10 mod 10) + (a mod 10));
writeln('Среднее арифмитияеское = ');
writeln((a div 100000) + (a div 10000 mod 10) + (a div 1000 mod 10 mod 10) + (a div 100 mod 10 mod 10 mod 10) + (a mod 10) / 6);
end.
Полагаю речь идет о расширении
Memory.txt - текстовый файл
Pusk.exe- исполняемый файл
Ntn.mp4 - видео файл
Image.jpg - изображение