FreePascal:
const n=10;
var
i:integer;{параметр цикла}
var A: array[1..n] of integer;
begin
randomize;{включаем генератор случайных чисел}
writeln('1. Выводим на экран весь... Читать далее
У вас общая учетная запись Microsoft. Вы вошли под одной записью в Windows 10. При изменении вами картинки рабочего стола - она меняется и у вашего друга, при изменении другом картинки -... Читать далее
Free Pascal:
const K=10;{цена первых 30 пирожков, к примеру, 10}
var
i:byte;{параметр цикла}
Z:real;{заработок продавца}
S:real;
begin
Z:=K*30;{находим стоимость первых 30... Читать далее
В Dev-C++ :
#include <iostream>
using namespace std;
int main()
{
setlocale ( LC_ALL , ".1251" );//задаем в консольном приложении Windows кодовую таблицу 1251 (чтобы не было... Читать далее
- Через Do Loop Until:
Dim N, M, F As Integer
Do
N = Val(InputBox("Введите число этажей в небоскрёбе"))
Loop Until N >= 1 '№ этажа N не меньше единицы
Do
M = Val(InputBox("Введите... Читать далее
Чтобы выйти из оператора Else и перейти на начало программы существует оператор безусловного перехода goto. Но, к сожалению, в VBScript он упразднен.
Воспользуйся циклом с постусловием:
Do... Читать далее
Потому что cmd - это командный интерпретатор, т.е. все команды "зашиты" уже в него.
Чтобы запустить твою программу придется указывать полный путь к exe-файлу или положи этот файл в папку... Читать далее
1) Символы. Объем информации для хранения одного символа зависит от кодировки. В старой классической популярной и фундаментальной кодировке ASCII каждый символ в памяти компьютера... Читать далее
Есть несколько вариантов записи:
1) Просто записать демку. Для этого никакие программы не нужны. Файлы демок хранятся в папке CS:GO и не занимают много места, в отличие от видео. Для... Читать далее
В FreePascal:
- Без массива используя While:
var
i:byte;
S,n,m:real;
begin
i:=0;
S:=0;
while i<10 do
begin
i:=i+1;
write('Введите ',i,'-е число: ');... Читать далее