Программа в файле
// ConsoleApplication1.cpp: определяет точку входа для консольного приложения.////Дата некоторого дня характеризуется тремя натуральными числами ://g(год), m(порядковый номер месяца) и n(число).По заданным g, m//и n определить дату предыдущего дня(считать, что год не является високосным)
#include "stdafx.h"#include "conio.h"#include "iostream"
int main(){ using namespace std; int n, m, g; cout << "Day "; cin >> n; cout << "Month "; cin >> m; cout << "Year "; cin >> g; if (m == 1 || m == 3 || m == 5 && m == 7 || m == 8 || m == 10 ) { if (n < 31) cout << n + 1 << "." << m << "." << g; else cout << 1 << "." << m+1 << "." << g; } if (m == 2) { if (n < 28) cout << n + 1 << "." << m << "." << g; else cout << 1 << "." << m + 1 << "." << g; } if (m == 4 || m == 6 || m == 9 && m == 11 ) { if (n < 30) cout << n + 1 << "." << m << "." << g; else cout << 1 << "." << m + 1 << "." << g; } if (m == 12) { if (n < 31) cout << n + 1 << "." << m << "." << g; else cout << 1 << "." << 1 << "." << g+1; }
_getch(); return 0;}
using System;
class HelloWorld {
static void Main() {
int s = 0;
for (int i = 50; i <= 100; i++)
if(i % 6 == 0)
s += i;
Console.WriteLine(s);
}
}
Var
x,y:real;
begin
x:=-1;
while x<=1 do begin
Writeln('x=',x:4:1,', y=',x*x*x:9:6);
x:=x+0.1
end
end.
<em><u>Результат выполнения программы:</u></em>
x=-1.0, y=-1.000000
x=-0.9, y=-0.729000
x=-0.8, y=-0.512000
x=-0.7, y=-0.343000
x=-0.6, y=-0.216000
x=-0.5, y=-0.125000
x=-0.4, y=-0.064000
x=-0.3, y=-0.027000
x=-0.2, y=-0.008000
x=-0.1, y=-0.001000
x= 0.0, y= 0.000000
x= 0.1, y= 0.001000
x= 0.2, y= 0.008000
x= 0.3, y= 0.027000
x= 0.4, y= 0.064000
x= 0.5, y= 0.125000
x= 0.6, y= 0.216000
x= 0.7, y= 0.343000
x= 0.8, y= 0.512000
x= 0.9, y= 0.729000
x= 1.0, y= 1.000000
Ответ:
FALSE
TRUE
s = abracadabra
s = '12'
t = '21'
s = 'Счет: ' + 10 - ошибка
t = '2.1' + 3 - ошибка
t = 'кино'
s := t * 5 - ошибка
writeln ('A'*x); - ошибка
Таблица значений переменных
t 1 2 3 4 5 6 7 8 9 10
n 1 2 4 8 16 32 64 128 256 512 1024
Паскаль:
var t,n:integer;
begin
n:=1;
for t:=1 to 10 do n:=n*2;
writeln('N=',n)
<span>end.</span>
